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ABSTRACT 


This  CAA  (MOCA-FD)  study  developed  and  demonstrated  a model,  the 
Balanced  Force  Model  (BALFOR)  which  assesses  force  performance  Im- 
plications of  a change  in  the  POMCUS  issue  rates,  the  maintenance 
return  rates,  and  the  prepositioned  war  reserve  materiel  stock 
(PWRMS)  Issue  rates  as  they  affect  the  committed  tank  force. 
Analysis  Identified  areas  where  changes  In  resource  allocation 
among  support  functions  will  Improve  force  performance.  The  re- 
port describes  the  methodology  with  examples  and  contains  a user 
and  programer  guide,  in  addition  to  the  documentation  of  the 
BALFOR  Model. 
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METHODOLOGY  TO  DETERMINE  SUPPORT  AND  SUSTAINABILITY 
IMPLICATIONS  OF  INCREASED  POMCUS  LEVELS 
(SSIPL) 


1.  INTRODUCTION.  It  has  long  been  said  that  there  are  only  two 
absolute  certainties--death  and  taxes.  This  old  saying  implies 
that  everything  else  has  some  degree  of  uncertainty  attached  to 
it.  In  the  defense  planning  world,  at  least,  that  proposition  is 
certainly  true.  The  resulting  natural  desire  to  minimize  these 
uncertainties  has  led  to  the  development  of  numerous  methods  which 
attempt  to  evaluate  the  risk  in  uncertainty  by  quantifying  it. 

Two  of  the  more  common  methods  are  sensitivity  analysis  and  simu- 
lation. Sensitivity  analysis  might  be  defined  as  an  examination 
of  the  change  in  results  brought  about  by  varying  the  input  as- 
sumptions over  a given  range.  Similarly,  Monte  Carlo  simulation 
might  be  defined  as  the  limiting  case  of  a sensitivity  analysis  in 
that  a very  large  range  of  data  points  are  considered. 

a.  One  group  of  simulations  used  at  the  Army's  Concepts  Analy- 
sis Agency  (CAA)  is  the  OMNIBUS  Study.  Its  purpose  is  to  assist 
the  Army  Staff  in  the  allocation  of  resources  and  development  of 
priorities  in  evaluating  the  readiness  of  the  current  US  force. 

b.  OMNIBUS  Studies  have  concluded  that  the  combat  force  effec- 
tiveness is  limited  by  shortfalls  in  the  part  of  the  force  which 
sustains  equipment  committed  to  battle--cal led  the  combat  service 
support  (CSS)  capability.  However,  there  is  no  existing  methodol- 
ogy to  express  these  shortfalls  in  terms  which  allow  a force  de- 
signer to  assess  tradeoffs  in  distributing  available  fiscal  or 
equipment  resources  between  combat  units  and  support  units  In 
developing  the  most  effective  force. 

2.  PURPOSE.  The  purpose  of  this  paper  is  to  describe  a methodol- 
ogy developed  at  CAA  which  fills  the  gap  in  the  Army's  ability  to 
analyze  the  relationship  between  CSS  and  the  committed  force. 
Central  to  this  methodology  is  a deterministic  simulation,  the 
Balanced  Force  (BALFOR)  Model.  The  term  "balanced  force"  refers 
to  an  improved  distribution  of  resources  between  combat  and  CSS 
units.  The  BALFOR  resources  model  measures  the  strength  of  the 
combat  force  as  a function  of  the  CSS  ability  to  sustain  the 
force.  With  sufficient  sustainability,  the  committed  strength  is 
no  longer  constrained  by  inadequate  personnel  and  equipment  resup- 
plies, maintenance  units,  or  transportation  capabilities  for  these 
supplies. 
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3.  BACKGROUND.  During  FY  79  CAA  directed  its  attention  to  force 
sustainability  in  an  analysis  of  the  FY  82  force.  The  Army  is 
considering  the  costly  option  of  prepositioning  additional  unit 
sets  of  equipment  in  Europe  as  POMCUS  (prepositioning  of  materiel 
configured  to  unit  sets)  rather  than  placing  it  in  prepositioned 
war  reserve  materiel  stocks  (PWRMS).  In  the  FY  80-84  Consolidated 
Guidance,  DOD  directed  the  Army  to  appraise  this  option.  The 
guidance  led  the  Army  Staff  to  raise  the  question,  "What  is  the 
optimum  level  of  POMCUS  for  the  Army?" 

a.  To  answer  this  question,  CAA  compared  the  performance  of 
two  FY  82  force  designs.  The  equipment  was  added  to  increased  r 

POMCUS  in  the  first  force.  In  the  second  force,  the  equipment  was 
put  in  PWRMS  while  retaining  the  FY  78  level  of  POMCUS.  The  force 
design  was  unaffected  by  the  placement  of  additional  equipment; 
both  force  designs  performed  equally,  because  the  ability  of  main- 
tenance units  to  process  combat  damaged  equipment  constrained  each 
force. 


b.  CAA  then  contrasted  these  two  forces  with  a third  design: 

a modified  FY  78  force  with  increased  maintenance  capability.  To 
implement  this,  three  force  improvements  were  assumed:  an  in- 
crease in  the  maintenance  return  rate,  an  increase  in  the  PWRMS 
issue  rate,  and  placement  of  equipment  added  to  the  FY  82  cases  in 
PWRMS.  This  modified  FY  78  force  outperformed  both  FY  82  forces 
due  to  an  increased  sustainability  achieved  through  the  relaxing 
of  maintenance  constraints. 

c.  At  this  point  CAA  responded  to  the  Army  inquiry  concerning 
an  optimum  POMCUS  level  with  three  conclusions. 

(1)  First,  this  level  could  not  be  determined  in  isolation 
because  it  was  a function  of  force  sustainability.  Sustainability 
depends  on  at  least  four  variables:  the  level  of  PWRMS,  the  POMCUS 
site  issue  rate,  the  maintenance  repair  rate  of  combat  damaged  ve- 
hicles, and  the  supply  issue  rate  of  combat  vehicles  from  PWRMS. 

(2)  The  second  conclusion  was  that  no  methodology  presently 
available  was  able  to  determine  the  optimum  POMCUS  level  because 
the  tradeoff  between  increased  POMCUS  and  increased  CSS  to  sustain 
the  force  was  not  determinable. 

(3)  If  the  POMCUS  level  is  considered  in  isolation  from  the 
sustainability  requirements,  the  value  of  the  planned  addition  of 
combat  forces  is  primarily  in  the  deterrent  value.  Should  this 
deterrent  fall,  however,  only  that  part  of  the  combat  force  which 
can  be  sustained  will  increase  the  survivability  of  the  NATO  alli- 
ance. 
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4.  THE  BALFOR  METHODOLOGY.  In  an  attempt  to  give  a more  complete 
response  to  the  ramifications  of  POMCUS  levels  and  sustainability, 
CAA  conceived  of  a three-step  methodology  to  alleviate  the  present 
methodology  deficiencies.  The  approach  begins  with  developing  the 
BALFOR  simulation  to  establish  the  functional  relationship  between 
POMCUS  levels  and  sustalnabllty.  The  next  step  Is  to  use  sensi- 
tivity analysis  to  establish  how  sensitive  the  BALFOR  Model  Is  to 
Its  inputs  and  to  determine  what  effect  changes  In  the  model  Input 
assumptions  produce  on  the  conclusions  drawn  from  model  output. 

The  final  and  unimplemented  step  Is  to  change  the  BALFOR  Model 
from  Its  present  form  as  a deterministic  simulation  to  a probabi- 
listic simulation.  This  step  Is  an  extension  of  sensitivity 
analysis  because  the  conclusions  may  be  stated  with  a correspond- 
ing measure  of  confidence  or  accuracy. 

5.  RELATIONSHIP  OF  BALFOR  TO  OTHER  CAA  MODELS.  Before  detailing 
the  operation  of  the  BALFOR  Model,  the  three-step  methodology  will 
be  contrasted  with  earlier  methodologies  available  at  CAA  In  the 
TRANSMO,  CEM,  FASTALS,  and  match  methodologies.  A brief  descrip- 
tion of  these  projects  appears  In  the  glossary  of  this  document. 

a.  There  are  three  key  advantages  in  the  BALFOR  procedure. 

(1)  The  BALFOR  simulation,  which  models  unit  deployment, 
warfighting,  and  CSS  In  a single  algorithm.  Is  quick  and  efficient 
to  use.  Changing  Inputs  to  the  model  Is  a trivial  step  and  com- 
puter execution  time  for  a 60-day  war  Is  just  a couple  of  minutes. 
The  earlier  methods  are  time  consuming  and  require  several  months 
to  study  a single  case. 

(2)  One  of  the  key  breakthroughs  In  the  BALFOR  methodology 
Is  the  selection  of  a common  measure  of  effectiveness  for  combat 
units  and  CSS  units.  For  example,  the  OMNIBUS-77  and  -78  Studies 
have  recognized  shortfalls  In  the  CSS  capability  but  have  not  been 
able  to  evaluate  the  effect  of  Increasing  CSS  on  the  effectiveness 
of  the  force.  Two  features  of  the  BALFOR  Model  equate  combat 
units  and  CSS.  First,  maintenance  Is  presented  In  the  form  of 
units  rather  than  simple  rates  of  maintenance  returns  of  combat  dam- 
aged equipment.  Figure  1 (pg  8)  shows  the  flow  of  maintenance  and 
combat  units  through  the  model.  The  BALFOR  Model  uses  the  mainte- 
nance units  In  a detailed  system  which  allows  specific  stopgaps  in 
the  maintenance  system  to  be  Identified.  The  second  feature  Is 

the  choice  of  a committed  combat  weapon  system--tanks--on  FEBA 
from  M to  M+60  as  a common  measure  of  effectiveness  of  both  combat 
and  support  units. 

(3)  The  third  advantage  Is  the  ability  of  the  BALFOR  simu- 
lation to  express  tradeoffs  In  distributing  resources  between 
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combat  units  and  CSS.  The  model  allows  each  of  the  variables  de- 
scribed above  which  affect  sustainability,  specifically  the  level 
of  PWRMS,  the  POMCUS  site  Issue  rate,  the  maintenance  repair  rate 
of  damaged  vehicles,  and  the  supply  Issue  rate  of  combat  vehicles 
from  PWRMS,  to  be  changed.  The  effect  of  the  changes  can  then  be 
observed  In  the  committed  tank  strength  at  FEBA.  Putting  the  sec- 
ond and  third  of  these  advantages  together  allows  one  to  determine 
an  improved  level  of  POMCUS  after  adjusting  sustainability  vari- 
ables so  that  a balanced  force  Is  achieved. 

b.  In  view  of  these  advantages,  the  BALFOR  methodology  Is  com-  * 

patlble  In  two  ways  with  earlier  CAA  methodologies.  On  the  one 

hand,  many  BALFOR  Model  inputs  are  derived  from  the  WARF,  CEM, 

TRANSMO,  FASTALS,  and  match  methodologies.  On  the  other  hand  the 
detailed  BALFOR  maintenance  system  can  ameliorate  maintenance  re- 
pair rates  and  maintenance  unit  deployments  Input  to  these  earlier 
models.  An  overview  of  these  two  Items  underscores  the  BALFOR 
Model  compatibility  with  the  existing  methodology. 

(1)  Deriving  BALFOR  Inputs.  The  BALFOR  Model  Is  capable  of 
using  deployment  sequences  of  units  from  TRANSMO,  permanent  loss 
rates  from  WARF,  or  combat  loss  rates  from  CEM.  The  loss  rates 
for  equipment  and  personnel  are  compatible  with  CEM,  and  the  main- 
tenance unit  capabilities  and  heavy  equipment  supply  capabilities 
are  compatible  with  FASTALS. 

(2)  Refining  Maintenance  Rates  and  Deployments.  If  the 
maintenance  units  and  heavy  equipment  supply  companies  used  In  the 
BALFOR  Model  are  reduced  from  authorized  strengths  to  actual  lev- 
els, the  simulation  will  reflect  a degraded  maintenance  unit  cap- 
ability. This  more  realistic  capacity  can  then  be  applied  to  the 
CEM  inputs.  Consequently  the  validity  of  CEM  results,  which  Is 
highly  sensitive  to  both  the  maintenance  return  rate  and  the  PWRMS 
Issue  rate,  will  increase.  The  BALFOR  Model  provides  the  ratio- 
nale to  Increase  maintenance  unit  deployment  priority  because  the 
early  arrival  of  these  units  can  Increase  committed  unit  sustain- 
ability. 

c.  While  BALFOR  Is  compatible  for  the  most  part  with  other  CAA  , 

methodologies,  It  Is,  Independent  of  the  source  of  Its  Inputs. 

Earlier  CAA  methodologies  took  months  to  complete  because  each 
model  depended  on  the  others  for  Inputs,  but  the  BALFOR  Model  can  be 
used  outside  CAA  because  the  user  Is  free  to  derive  model  Inputs 
from  any  sources  he  chooses.  For  example,  the  deployment  sequence 
for  BALFOR  can  be  developed  from  Arnjy  planning  documents  Instead 
of  the  TRANSMO  outputs.  A major  need  In  Implementing  the  third 
and  final  step  In  the  BALFOR  Methodology,  In  which  the  determinis- 
tic model  Is  transformed  into  a probabilistic  model,  Is  obtaining 
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combat  damage  distribution  and  repair  times  for  equipment  types 
other  than  tanks.  Minimally,  the  repair  times  for  all  major  wea- 
pon systems— track  vehicles,  missile  systems,  and  helicopters— is 
needed. 

6.  BALFOR  MODEL  OPERATION.  This  section  describes  the  algorithm 
used  in  the  BALFOR  simulation.  The  model  operates  on  an  event 
cycle  repeated  at  the  beginning  of  each  day.  In  this  cycle  is 
simulated  functions  by  combat  units,  unit  maintenance  units,  DS 
and  GS  maintenance  companies,  depots  and  heavy  equipment  supply 
companies,  a theater  stock  control  center,  and  an  overseas  re- 
placement personnel  center.  The  following  list  details  the  func- 
tions each  of  these  items  performs. 

(1)  Combat  unit  functions: 

• Receive  orders  (arrival,  commitment) 

• Conduct  operations 

• Assess  losses 

• Evacuate  wounded  personnel  and  damaged  equipment 

• Requisition  personnel  losses  and  equipment  replace- 
ments 

t Receive  replacement  personnel 

• Receive  repaired  and  replaced  equipment 

(2)  Unit  maintenance  functions:  (Division  maintenance 
and  forward  DS  units) 

• Schedule  remaining  repairs  (nonbattle  repair  before 
combat  damaged) 

• Receive  repairable  equipment 

• Evacuate  overflow  workload 

• Evacuate  repal rabies  to  GS  maintenance  units 

• Evacuate  uneconomical  repal rabies  to  COMMZ 

• Repair  equipment 

• Return  repaired  equipment  to  units 
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(3)  Rear  DS  and  GS  maintenance  functions: 

• Receive  arriving  DS  and  GS  units 

• Schedule  repairs 

• Receive  unit  maintenance  overflow  (rear  DS  only) 

• Receive  evacuated  GS  repal rabies  (GS  only) 

• Repair  equipment 

• Report  repaired  equipment  to  the  theater  stock  control 
center 

(4)  Depot  and  heavy  equipment  supply  unit  functions: 

• Receive  arriving  heavy  equipment  supply  companies 

• Receive  CONUS  majpr  Item  resupply 

• Allocate  supply  resources  among  major  Items 
t Process  major  Items  for  Issue 

• Report  ready  for  issue  equipment  to  theater  stock  con- 
trol center 

(5)  Theater  stock  control  center  functions: 

• Maintain  unit  equipment  status 
t Maintain  unit  back  orders 

• Maintain  theater  equipment  status 

Available  from  maintenance 

Available  from  supply  (PWRMS  and  CONUS  resupply) 
Unit  back  order 
In  transit  to  units 

• Receive  unit  crew  availability  from  the  theater  re- 
placement center 

• Schedule  equipment  arrival  at  units 

• Ship  equipment  to  units 
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(6)  Theater  replacement  center  functions 

• Maintain  unit  personnel  status 

• Receive  CONUS  individual  replacements 

• Receive  hospital  returns  to  duty 

• Allocate  available  personnel  to  units 

• Ship  replacements  to  units 

A better  grasp  of  these  functions  can  be  obtained  by  considering 
the  flow  of  equipment  and  personnel  separately.  The  theater 
equipment  flows  In  BALFOR  are  shown  in  Figure  1.  The  arriving 
combat  units  are  divisions  and  brigades  with  organic  maintenance 
units.  Arriving  CSS  units  are  DS  maintenance,  GS  maintenance,  and 
heavy  equipment  supply  companies.  The  arriving  maintenance  compa- 
nies Increase  the  maintenance  return  rate  of  damaged  tanks  to 
theater  stocks,  and  the  heavy  equipment  supply  companies  Increase 
the  rate  at  which  tanks  from  PWRMS  stocks  and  CONUS  resupply 
equipment  can  be  prepared  for  issue  to  units.  Theater  personnel 
flows  are  shown  In  Figure  2.  Crew  personnel  arrive  with  combat 
units.  Individual  unit  replacements  to  replace  crew  losses  are 
scheduled  based  upon  DCSPER  estimates  of  replacements  by  career 
group.  Returns  to  duty  from  In-theater  hospitals  and  the  CONUS 
evacuation  rates  are  based  upon  the  theater  evacuation  policy. 

a.  Force  Relationships.  The  combined  Interaction  of  personnel 
and  equipment  Is  illustrated  In  Figure  3.  This  flow  diagram  shows 
four  types  of  units  being  committed  to  the  FEBA:  on  station 
units;  POMCUS  units;  Active  Army,  non-POMCUS  units;  and  Reserve 
Component  units.  The  on  station  units  are  committed  Immediately. 
The  remaining  Active  Army  and  Reserve  units  are  committed  after 
arrival.  Unit  personnel  and  equipment  first  assemble  and  then 
move  to  FEBA. 
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Figure  1.  Theater  Equipment  Flows 
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Figure  2.  Theater  Personnel  Flows 
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Figure  3.  Force  Relationships  In  the  Balanced  Force  Model 
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(1)  At  commitment,  these  forces  sustain  noncombat  as  well  as 
combat  losses.  The  repairable  vehicles  enter  the  maintenance  loop 
and  are  returned  to  committed  units  In  the  transportation  loop. 

The  permanent  tank  losses  represented  by  the  destroyed,  nonrepalr- 
ables,  and  unrecovered  combat  damaged  tanks  are  replaced  from 
PWRMS  stocks  or  CONUS  resupply. 

(2)  Tank  crews  also  sustain  losses,  and  the  wounded  are 
evacuated  to  the  hospital.  The  crew  K1A  are  removed  from  the  unit 
and  create  a demand  for  Individual  replacements.  After  hospital 
recovery,  returns  to  duty  are  returned  to  committed  units  through 
the  theater  personnel  and  transportation  system. 

(3)  Personnel  replacements  arriving  from  CONUS  also  flow 
through  the  theater  personnel  and  transportation  system  to  replace 
losses.  Units  obtain  only  that  replacement  equipment  for  which 
they  have  sufficient  crew  personnel  to  man.  This  logic  allows  the 
avallabllty  of  tank  crewmen  to  be  compared  to  the  availability  of 
replacement  tanks  from  theater  stocks. 

(A)  The  interactions  caused  by  an  increase  in  the  number  of 
POMCUS  units  in  this  diagram  are  outlined  below. 

(a)  The  rate  of  combat  force  buildup  at  the  FEBA  Increases 
when  more  equipment  Is  added  as  POMCUS,  since  these  units  are  In- 
troduced in  a shorter  time  span. 

(b)  This  Increase  in  the  number  of  brigade  days  of  combat 
will  increase  US  losses  as  US  forces  engage  a larger  portion  of 
the  Warsaw  Pact  threat  and  US  units  Increase  their  frontage  on  the 
FEBA.  War  reserve  levels  of  prepositioned  materiel  stocks  will 
need  to  be  Increased  to  sustain  the  arriving  brigades  and  to  re- 
place the  high  equipment  losses.  It  Is  assumed  that  an  Increase 
in  the  rate  and  size  of  US  force  commitments  is  not  likely  to  be 
of  sufficient  magnitude  to  produce  a reversal  In  US  loss  rates 
under  the  current  NATO  alliance  posture  and  Pact  threat  levels.1' 

(c)  Consequently,  as  US  losses  Increase,  an  Increase  In 
the  level  of  PWRMS  will  increase  the  level  of  combat  service  sup- 
port required  to  prepare  and  issue  PWRMS  In  order  to  sustain  the 
committed  force. 

(d)  These  Increases  In  the  number  of  POMCUS  bri- 
gades and  In  the  PWRMS  level  will  also  Increase  the  number  of 
battle  damaged  tanks,  putting  a greater  strain  on  theater  mainte- 
nance units  to  recover,  repair,  and  return  damaged  equipment  to 
the  force. 
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b.  Selection  of  GASP  IV  Simulation  Language  and  the  Gately  Op- 
timizati on  Routined  The  BALFOR  Model  is  a computer  simulation 
program  which  uses  the  popular  GASP  IV  simulation  language.  Three 
outstanding  features  of  GASP  IV  motivated  Its  choice.  First,  this 
language  Is  Implemented  In  FORTRAN,  which  Is  the  most  widely  em- 
ployed and  hence  compatible  language  at  CAA.  Second,  GASP  IV  Is 
unique  In  that  It  allows  continuous  events  (such  as  the  continual 
losses  of  equipment  and  personnel  from  the  committed  force 
throughout  the  simulation)  and  discrete  events  (for  example,  the 
arrival  of  a CONUS  resuppply  of  personnel)  to  be  modeled  together 
In  a single  simulation.  The  final  and  most  crucial  feature  of  the 
GASP  IV  language  Is  the  availability  of  the  Gately  optimization 
routine.  From  Its  conception,  the  BALFOR  Model  appeared  most  use- 
ful In  answering  questions  concerning  optimum  levels,  such  as  the 
optimum  level  of  POMCUS  and  WRS  or  the  optimum  distribution  of 
resources.  Whenever  a computer  simulation  Is  used  to  find  the  op- 
timum solution  to  a problem,  It  must  repetitively  simulate  each 
possible  solution.  Then  a better  solution  can  be  chosen  from  the 
result  of  each  repetition.  The  Gately  routine  not  only  automati- 
cally performs  this  task,  but  It  attempts  to  save  computer  time  by 
predicting  which  solutions  will  not  be  an  Improvement  before  they 
are  simulated. 

7.  FORCE  ASSUMPTIONS.  The  simplifying  assumptions  which  are  made 
In  using  the  model  are  described  below. 

a.  Ammunition  and  POL  resupply  were  not  modeled  In  this  In- 
itial effort  In  order  to  limit  the  scope  of  the  modeling  task.  It 
is  assumed  that  ammunition  and  POL  resupply  can  be  provided  to 
units  without  using  the  resources  of  theater  maintenance  and  heavy 
equipment  supply  units. 

b.  Transportation  units  In  the  corps  area  were  also  excluded 
from  the  Initial  modeling  tasks.  It  is  therefore  assumed  that  the 
transportation  required  to  evacuate  damaged  tanks  and  to  deliver 
major  Items  from  PWRMS  and  CONUS  resupply  are  available. 

c.  The  model  assumes  no  attrition  or  interdiction  to  CSS  sup- 
port units  and  facilities.  Attrition  and  Interdiction  can  be  as- 
sessed within  the  methodology  but  have  not  been  Included  In  this 
phase,  again  to  limit  the  scope  of  the  problem. 

d.  The  model  assumes  full  availability  of  the  repair  parts 
needed  to  repair  both  combat  and  noncombat  losses.  The  model  can 
be  refined  In  the  future  to  reflect  maintenance  backlogs  due  to 
nonavailability  of  repair  parts. 
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8.  FLOW  CHART/STRUCTURE.  A flow  chart  of  the  distribution  for 
equipment  losses  and  maintenance  processing  Is  shown  In  Figure  4. 
Division  and  forward  DS  maintenance  companies  return  tanks  di- 
rectly to  the  combat  units  from  which  they  originated.  Rear  DS 
and  GS  maintenance  units  report  repaired  equipment  to  the  stock 
control  center  which  manages  the  distribution  of  repaired  items  to 
all  units.  The  maintenance  policies  which  govern  the  echelon  at 
which  repair  Is  accomplished  are  listed  In  Table  1 and  depicted  In 
Figure  4.  Uneconomical  repalrables  are  assumed  to  be  evacuated  to 
COMMZ  and  are  not  available  for  reissue  to  corps  units. 


Figure  4.  Distribution  of  Equipment  Losses  and 
Maintenance  Processing 
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(U)  Table  1.  Maintenance  Policy/Definitions 

• Damage  requiring  > 48  maint  man  hrs  = GS 

• Damage  requiring  < 48  maint  man  hrs  - DS 

• Damage  requiring  >96  maint  man  hrs  = nonrepayable  In  corps 

• Max  backlog  In  dlv  maint  bn  * 2 days 

• Max  backlog  In  TOE  29-207H  = 2 days 

• No  limit  on  backlog  In  TOE  29-137H 

• Unit  capability  to  repair  stated  In  TOE  summary 

9.  DESIGN  CONSIDERATIONS.  The  original  objective  was  to  model 
only  the  CENTAG  tank  force.  This  objective  was  modified  when  It 
became  necessary  to  make  judgments  on  how  support  would  be  dis- 
tributed between  CENTAG  and  NORTHAG  units.  When  a theater  Is  con- 
strained for  combat  service  support,  the  theater  commander  must 
allocate  available  support.  The  best  known  historical  example  of 
CSS  allocation  was  the  decision  to  provide  CSS  to  Montgomery  In- 
stead of  Patton  after  the  breakout  from  Normandy.  The  allocation 
of  CSS  between  committed  US  units  poses  the  same  problem  for  plan- 
ners today.  The  revised  modeling  objective  was  to  model  the  US 
units  In  the  AFCENT  tank  force.  This  objective  allowed  available 
support  to  be  distributed  to  all  US  units  In  AFCENT  In  proportion 
to  need. 

10.  SAMPLE  RESULTS 

a.  The  first  example  using  the  BALFOR  Model  measures  the  ef- 
fects of  the  modeled  combat  service  support  functions  on  the  com- 
bat force.  Expected  values  for  model  Inputs  were  derived. from  the 
OMNIBUS-79  data  base  and  other  current  CAA  studies. 

The  force  size  was  scaled  to  represent  the  commitment  of  a 1000 
tank  force.  This  force  Is  shown  In  Figure  5 for  a type  corps. 

(1)  The  force  was  simulated  In  the  BALFOR  Model  without  pro- 
viding the  committed  tank  force  maintenance  or  supply  support  of 
any  kind.  There  were  no  returns  to  the  committed  force  from  the 
division  maintenance  battalions,  OS  and  GS  maintenance  companies, 
or  resupply  to  combat  units  from  theater  stocks  (Figure  5).  The 
results  of  this  simulation  are  shown  In  Figure  6,  which  displays 
the  decay  of  the  committed  force  without  maintenance  support, 

PWRMS  tank  Issue,  tank  resupply  from  CONUS  or  tank  crew  replace- 
ments. At  D+50  only  8.8  percent  of  the  1000  tanks  committed  to 
FEBA  remained. 
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Figure  5.  Maintenance  Support  of  Tanks 


Figure  6.  The  Sustain  Level  of  the  Committed  Tank  Force 
Without  Maintenance,  PWRMS,  or  Resupply  Support 
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(2)  The  next  simulation  In  the  first  example  added  direct 
support  and  general  support  maintenance  to  provide  returns  of  re- 
pairable noncombat  and  recovered  combat  damaged  tanks  to  the 
force.  The  committed  tank  force  Is  sustained  at  29  percent  of  au- 
thorization at  D+50  (Figure  7). 


Figure  7.  The  Sustain  Level  of  the  Committed  Tank  Force 
With  Maintenance  Support 

(3)  The  next  simulation  added  resupply  of  tanks  to  combat 
units  from  PWRMS.  PWRMS  stocks  not  only  contribute  support  to  the 
committed  force  through  rapid  replacement  of  early  losses,  but 
also  Increase  the  number  of  repairable  tanks  which  are  repaired 
and  returned  to  the  committed  force  through  the  DS  and  GS  mainte- 
nance cycles.  The  addition  of  tanks  In  PWRMS  sustains  the  forces 
at  39  percent  of  authorization  at  D+50  (Figure  8). 

(4)  The  last  simulation  added  CONUS  resupply  which  Is  made 
up  of  POMCUS  leave  behind  and  CONUS  war  reserve  stocks.  The  ef- 
fect on  the  committed  force  Is  again  twofold:  (1)  a source  of  re- 
placement for  unit  losses,  and  (2)  maintenance  returns  through 
the  maintenance  system.  The  addition  of  resupply  sustains  the 
committed  tank  force  at  55  percent  of  authorization  (Figure  9). 
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Figure  8.  The  Sustain  Level  of  the  Committed  Tank  Force 
With  Maintenance  and  PWRMS  Support 


Figure  9.  The  Sustain  Level  of  the  Committed  Tank  Force 
With  Maintenance,  PWRMS,  and  CONUS  Resupply  Support 
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(5)  The  difference  between  the  authorized  curve  and  the  sus- 
tained level  Is  accounted  for  by  three  constraints:  (1)  a por- 
tion of  the  1000  tanks  In  committed  units  unsupported  with  the 
PWRMS  tanks,  (2)  the  response  delay  of  the  theater  supply  and 
maintenance  systems,  and  (3)  the  lack  of  crew  replacements  to  man 
tanks  In  the  D to  D+15  time  period.  The  theater  transportation  is 
measured  in  the  model  by  tanks  in  transit  to  units.  Figure  10. 

The  theater  maintenance  delay  Is  measured  by  the  tanks  remaining 
In  maintenance  at  the  end  of  each  day.  Also  shown  in  Figure  10 
are  the  tanks  which  are  not  shipped  because  units  did  not  have 
crews  for  them. 

(6)  This  example  with  Its  four  simulations  Illustrates  the 
use  of  the  BALFOR  Model  In  measuring  the  effects  of  CSS  support  on 
the  committed  force.  These  effects  are  measured  In  both  magnitude 
and  duration.  Also  measured  Is  the  Impact  of  personnel  replace- 
ments. 


b.  The  second  example  utilized  the  BALFOR  Model  to  examine  the 
sensitivity  of  model  results  to  changes  in  Input  values  over  a 
range  of  values.  The  same  tank  force  used  In  the  first  example  Is 
also  used  In  the  second  example.  The  expected  values  which  pro- 
vided base  case  values  were  again  derived  from  the  OMNIBUS-79  data 
base.  The  relationships  of  the  committed  tank  force  to  three  of 
the  four  sustainability  varlables--(l)  the  level  of  PWRMS,  (2)  the 
PWRMS  ready  for  Issue  (RFI)  rate,  and  (3)  the  POMCUS  site  Issue 
rate--are  shown  In  this  example.  Also,  the  risks  associated  with 
the  estimates  of  attrition  and  recovery  of  damaged  vehicles  will 
be  shown. 

(1)  When  the  PWRMS  level  is  doubled  from  287  to  574  tanks  In 
PWRMS,  the  force  Is  sustained  at  64  percent  of  authorization 
(Figure  II).  As  PWRMS  Is  doubled,  the  tank  crew  shortage  which 
constrained  the  committed  tank  force  In  the  last  example  is  ex- 
tended through  D+23.  These  crew  results  are  obtained  by  using 
the  data  analysis  features  of  GASP  IV.  1 For  example,  GASP  IV 
routines  collect  and  print  in  table  and  graph  form  any  of  the 
variables  computed  by  the  BALFOR  Model.  In  this  case  the  number 
of  tanks  which  are  not  Issued  because  units  lack  tank  crews  to  man 
them  Is  a model  variable. 
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Figure  10.  Tanks  in  Transit  to  Units,  Remaining  In  Maintenance 
and  Not  Shipped  Because  of  Crew  Shortages 
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(2)  The  next  sensitivity  run  was  conducted  on  the  PWRMS  issue 
rate.  When  the  PWRMS  issue  rate  is  cut  In  half  from  11  tanks  a 
day,  the  tank  force  Is  sustained  at  46  percent  of  authorization. 
PWRMS  processing  begins  at  M-day  and  a buildup  of  tanks  in  theater 
stocks  Is  obtained  before  D-day.  This  buildup  cannot  be  main- 
tained at  a processing  rate  of  six  tanks  a day  from  PWRMS,  and  the 
effect  on  the  committed  tank  force  is  seen  as  a decrease  beginning 
at  D+10  and  extending  through  D+50  (Figure  11). 

(3)  The  third  sensltivly  run  was  conducted  on  the  POMCUS 
site  Issue  rate.  The  effect  of  greater  POMCUS  site  Issue  delays 
(four  days)  on  the  committed  tank  force  at  D+50  Is  small.  The  Im- 
pact of  time  delays  In  the  commitment  of  the  POMCUS  force  Is  seen 
In  the  committed  tank  force  between  D and  D+10  (Figure  11).  Al- 
though represented  as  POMCUS  site  Issue  delays,  other  time  delays 
which  affect  the  arrival  and  commitment  of  the  POMCUS  units  would 
have  the  same  impact.  Other  probable  causes  of  time  delays  of  the 
POMCUS  units  are  weather  conditions  at  the  aerial  ports  which 
cause  diversions  of  aircraft  Into  other  European  airfields,  chemi- 
cal contamination  of  POMCUS  stocks  which  could  delay  Issue  until 
decontamination  was  completed,  and  damage  to  the  POMCUS  sites 
which  required  salvage  and  cleanup  delays  at  the  sites.  The  im- 
pact on  the  committed  units  of  an  additional  four  days  before  re- 
lief or  reinforcement  Is  not  addressed  In  this  methodology. 


Figure  11.  The  Effect  of  (1)  an  Increase  in  the  Level  of  PWRMS, 
(2)  a Reduction  In  the  Ready-for- Issue  Rate  of  PWRMS,  or  (3) 
an  Increase  In  the  Issue  Rate  at  POMCUS  Sites 
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(4)  The  fourth  sensitivity  run  was  a test  on  the  attrition 
rates.  The  loss  rates  used  In  the  base  case  were  derived  from  the 
OMNIBUS- 79  scenario  but  many  threat  and  equipment  variables  affect 
the  loss  rates  In  a theater  simulation.  In  this  case,  the  6.2 
percent  per  day  combat  loss  rate  and  a 1 percent  per  day  noncombat 
loss  rate  were  first  decreased  by  50  percent  and  then  doubled.  At 
the  lower  attrition  levels  of  3.6  percent  per  day,  the  PWRMS  plus 
resupply  tank  level  and  the  ready  for  Issue  rate  are  sufficient  to 
replace  the  losses  to  the  force.  Tanks  counted  as  permanent 
losses  are  (1)  unrepairable  noncombat  damaged  tanks,  (2)  damaged 
tanks  not  recovered,  (3)  uneconomical ly  repairable  tanks,  and  (4) 
the  destroyed  tanks.  The  maintenance  system  at  the  3.6  percent 
loss  level  Is  also  able  to  return  to  the  committed  force  all  non- 
combat losses  and  all  combat  damaged  tanks  that  are  economically 
repairable.  Only  the  response  lag  of  the  theater  maintenance  and 
transportation  systems  keeps  the  committed  tank  level  from  reach- 
ing authorized  levels.  At  higher  loss  levels,  the  tanks  being  added 
to  the  committed  force  In  (I)  reinforcing  units,  major  Item  re- 
placement (2)  from  PWRMS,  and  (3)  from  repair  In  the  maintenance 
system  are  not  sufficient  to  Increase  the  committed  tank  force  at 
FEBA  after  0+6  (Figure  121. 
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Figure  12.  The  Effect  of  (1)  an  Increase  In  Combat  and 
Noncombat  Loss  Rates  and  (2)  a Decrease  In  Loss  Rates 
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(5)  The  last  sensitivity  run  of  example  two  evaluated  the 
risks  associated  with  estimates  of  the  recovery  rate  of  damaged 
vehicles.  The  recovery  of  damaged  vehicles  Implies  the  retention 
of  territory  and  Is  estimated  at  CAA  In  terms  of  adverse  FEBA 
movement.  The  average  FEBA  movement  In  OMNIBUS-79  runs  was  used 
to  obtain  the  base  case  value  of  98  percent  recovery.  The  50  per- 
cent recovery  rate  used  In  this  example  was  selected  because  of 
the  Importance  of  this  variable  to  the  maintenance  and  supply 
functions  being  modeled  In  BALFOR.  PWRMS  levels  are  planned  on 
the  basis  of  the  number  of  tanks  In  the  committed  force  expected 
to  be  destroyed  In  a given  period  of  time.  These  PWRMS  levels 
will  not  support  the  force  when  the  level  of  vehicle  recovery  Is 
low,  because  for  each  damaged  tank  not  recovered,  one  must  be  pro- 
cessed and  Issued  from  PWRMS.  The  maintenance  system  Is  sized  to 
return  combat  damaged  vehicles  to  tlx  force.  Low  levels  of  vehi- 
cle recovery  will  result  In  unused  maintenance  capacity.  Recovery 
Is  also  a wartime  function  added  to  * maintenance  system  trained 
In  peacetime  repair.  The  effect  of  reducing  the  recovery  estimate 
from  98  percent  of  damaged  vehicles  to  50  percent  Is  a 16  percent 
reduction  In  the  committed  force  at  D+50  (Figure  13). 
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Figure  13.  The  Effect  of  a Reduction  In  the  Recovery 
Rate  of  Combat  Damaged  Vehicles  on  the  Committed  Force 
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(6)  This  second  example  with  five  sensitivity  simulations 
Illustrates  the  use  of  the  BALFOR  Model  In  performing  sensitivity 
tests  on  Input  variables.  These  sensitivity  tests  show  how  the 
risk  levels  associated  with  estimates  of  Important  force  variables 
can  be  established. 


c.  The  third  example  estimates  the  support  Increase  required 
when  one  mechanized  Infantry  division  Is  added  to  the  force.  The 
example  assumes  that  the  division  would  be  added  to  POMCUS,  but 
the  estimation  applies  equally  to  on-line,  POMCUS,  and  other  ar- 
riving divisions  with  the  same  equipment.  The  example  applies  to 
the  current  as  well  as  the  FY  82  and  FY  85  forces.  The  model  Is 
run  with  1000  tanks  committed  and  then  scaled  to  aet  values  for  a 
mechanized  division.  The  Input  distributions  of  losses  are  shown 
In  Figure  14.  Not  shown  are  the  repair  times  for  each  category  of 
maintenance.  These  are  added  In  the  lower  right  hand  corner  of 
Figure  14  and  the  DS  and  GS  maintenance  hours  required  to  repair 
the  tanks  delivered  to  DS  and  GS  maintenance  units  Is  calculated 
for  1000  tanks  (614  manhours  at  the  GS  level  and  396  manhours  at 
the  DS  level).  The  total  losses  to  the  theater  are  30  tanks  a 
day.  These  results  are  next  scaled  to  the  306  tanks  In  a mechan- 
ized Infantry  division.  The  support  required  by  the  arriving  di- 
vision Is  121  hours  of  DS  and  188  hours  of  GS  maintenance.  When 
theater  losses  are  scaled,  each  division  would  need  9.2  tanks  a 
day  added  to  PWRMS  and  an  Increase  In  the  RFI  rate  from  the  depot 
of  9.2  tanks  a day.  (With  a PWRMS  level  of  30  days,  each  division 
would  need  276  tanks  In  PWRMS.)  These  are  estimates  of  the  upper 
bounds  of  maintenance  and  supply  support  because  attrition  and 
theater  delays  will  reduce  the  Initial  committed  strength  of  the 
division.  This  third  example  Illustrates  how  the  Inputs  and  logic 
of  the  BALFOR  Model  can  be  used  to  analyze  support  problems.  Fi- 
gure 14  also  presents  the  expected  distributions  that  have  been 
derived  from  the  CODAM  Stu<1y  for  Input  to  BALFOR.  0 


11.  ANALYSIS  AND  INSIGHTS 


a.  The  preceding  sensitivity  analysis  Indicates  that  three 
types  of  constraints  affect  the  committed  force. 

• The  first  of  these  Is  a resource  constraint  whose  lead 
time  Is  long  enough  that  the  force  does  not  recover  from  the  con- 
straint. The  level  of  PWRMS  Is  such  a constraint. 


• The  second  type  of  constraint  operating  Is  a phasing 
constraint  where  the  rate  of  delivery  of  the  resource  constrains 
the  force.  Tank  crew  replacements  are  phasing  constraints.  It  Is 
not  the  quantity  of  the  resource  but  the  rate  of  delivery  which 
constrains  the  force.  If  PWRMS  levels  are  Increased,  capability 
to  Issue  PWRMS  at  a faster  rate  also  has  to  be  added. 
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• The  third  type  of  constraint  Is  a system  response  de- 
lay caused  by  the  reaction  time  of  the  CSS  system  when  a demand  Is 
placed  upon  It.  The  theater  maintenance,  transportation,  supply, 
and  personnel  systems  all  Incur  response  delays.  These  delays  are 
Inherent  In  demand  response  systems  and  can  be  minimized  by  adopt- 
ing a push  support  system  In  some  functional  areas,  particularly 
In  the  personnel  and  combat  vehicle  replacement  systems. 

b.  The  sensitivity  analysis  Indicates  that  a choke  point  In 
CSS  support  exists  at  the  point  of  recovery  of  damaged  vehicles 
because  recovery  not  only  constrains  the  output  flow  of  the  main- 
tenance system.  It  also  Increases  the  required  RFI  rate  from  the 
supply  systems. 

c.  The  portrayal  of  the  maintenance  and  heavy  equipment  supply 
systems  In  the  BALFOR  Model  Indicates  that  multiple  constraints 
are  operating  which  reduce  the  committed  force.  The  CSS  support 
system  Is  a personnel  replacement  constrained  system  until  D+15 
and  then  changes  to  a supply  Issue  constrained  system  caused  by 
the  RFI  rate  from  depots.  The  supply  Issue  constraint  lasts  until 
PWRMS  Is  exhausted,  at  which  time  the  PWRMS  level  becomes  the  con- 
straint. The  PWRMS  constraint  lasts  until  resupply  of  major  Items 
of  equipment  begins  to  arrive  from  CONUS  In  sufficient  amounts  to 
replace  losses. 

d.  A risk  assessment  was  made  based  upon  the  sensitivity  runs 
conducted.  The  magnitude  of  change  from  base  case  Input  values 
was  compared  to  the  change  In  committed  tanks  on  FEBA  at  D+50. 

This  rank  orders  the  degree  of  risk  associated  with  estimates  of 
Input  variables  (Table  2).  The  degree  of  risk  associated  with 
loss  estimates  Is  highest,  followed  closely  by  recovery  rates. 

The  risk  associated  with  estimating  the  recovery  and  attrition 
rates  In  combination  Is  shown  In  Figure  15.  This  risk  Is  ex- 
pressed In  terms  of  the  PWRMS  level  per  division  per  day  needed  to 
offset  the  risk.  The  PWRMS  values  In  Figure  15  are  expressed  In 
rate  terms  and  therefore  are  also  the  RFI  rates  required  to  sup- 
port a committed  division  per  day.  The  risk  associated  with  esti- 
mating both  attrition  rates  and  recovery  rates  Is  high  In  terms  of 
additional  resource  required.  A 48  percent  change  In  recovery 
changes  the  required  PWRMS  level  by  50  percent  (Figure  15).  A 
change  In  attrition  rate  from  7.2  to  5 percent  per  day  decreases 
the  PWRMS  level  needed  by  50  percent  (Figure  15). 
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Table  2.  Risk  Assessment  Derived  from  Sensitivity 

Analyses 


Input 

variable 

Change  in 
the  input 
variable 
(percent) 

Effect  of 
input  change 
measured 
at  output 
(percent) 

Coefficient  of 
change  for 
force  variable 
(output/input) 

PWRMS  level 

+100 

9.2 

.092 

RFI  rate 

-50 

8.3 

.166 

Issue  rate 

+25 

— 

-- 

Loss  rate 

-50 

29.5 

.590 

Loss  rate 

+100 

24.3 

.243 

Recovery  rate 

-48 

16.5 

.344 

' Recovery  Rate 

M Percent  of  Damaged  Tanks 


3 98  86  74  62  SO 

S > ■ 1 . t— J —.4 


PWRHS  Level  Required 
tanks/day/conelted  dlv 

Figure  15.  Risk  of  Estimating  Two  Force  Variables: 

Attrition  Rate  and  Recovery  Rate  of  Damaged  Tanks 

12.  POTENTIAL  USES  OF  BALFOR 

a.  Methodology  Assessment.  The  BALFOR  Model  can  be  expanded 
to  portray  all  maneuver  units  and  the  combat  service  support  with 
workloads  that  are  related  to  manuever  units.  It  fills  a needed 
gap  In  assessing  CSS  support  and  shortfalls.  The  methodology  can- 
not be  applied  to  command  and  control  functions  or  to  force-wide 
support  functions  that  are  based  upon  existence  or  population  al- 
location rules.  The  advantages  of  expansion  of  the  BALFOR  Model 
to  other  workload  related  support  areas  are: 
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(1)  Show  the  sustaining  support  needed  to  maximize  combat 
payoff  for  a given  investment  in  the  combat  force. 

(2)  Attack  a wide  range  of  equipment  distribution  questions. 

(3)  Show  impact  of  sustainability  on  a committed  force  and 
risks  associated  therewith. 

(4)  Quantify  the  risks  associated  with  an  Imbalance  In  com- 
bat and  support  forces. 

b.  Possible  Methodology  Extensions.  Proposed  methodology  ex- 
tensions are  listed  below  to  Inform  the  reader  the  type  study  ob- 
jectives which  can  be  accomplished  with  the  model.  The  most  pro- 
mising of  these  is  the  addition  of  a cost  submodel  to  the  BALFOR 
Model.  This  potential  expansion  of  the  methodology  is  discussed 
first. 

(1)  Cost  Model . The  BALFOR  Model  presents,  as  an  output 
over  time,  the  sustained  force.  The  sustained  force  results  from 
a distribution  of  available  tanks  and  their  sustaining  units  which 
were  input  to  the  model  as  (a)  units,  (b)  PWRMS,  (c)  maintenance 
rates,  (d)  war  reserve  issue  rates,  and  (e)  resupply  tanks,  from 
CONUS  war  reserves  and  uncovered  POMCUS.  The  increase  In  the  com- 
mitted tank  force  which  can  be  obtained  by  an  Increase  In  mainte- 
nance units,  POMCUS  combat  units,  and  PWRMS  levels  and  issue  rates 
are  measured. 

(a)  A cost  model  would  develop  the  cost  to  the  Army  of 
making  resource  changes  to  Increase  the  committed  force.  The  re- 
source expenditure  required  to  maintain  tanks  In  units,  PWRMS,  and 
POMCUS  would  need  to  be  developed  for  a cost  model.  The  cost  to 
increase  the  maintenance  return  and  war  reserve  Issue  rate  would 
also  need  to  be  developed.  Once  cost  data  were  available,  the 
sustained  tank  force  levels  would  be  evaluated  for  rough,  approxi- 
mate cost. 

(b)  The  current  measure  of  effectiveness  In  BALFOR  Is  the 
cumulative  tank  days  on  FEBA  or  the  level  of  the  sustained  tank 
force  at  a specific  time.  When  costs  are  added  to  the  model  the 
measure  of  effectiveness  would  change  to  the  maximum  sustained 
level  which  can  be  obtained  for  a given  dollar  Investment,  or  a 
matrix  of  the  cost  and  the  associated  levels  of  sustained  tanks. 
Cost  effectiveness  of  proposed  resource  allocations  could  be 
evaluated.  The  first  step  should  be  to  develop  only  relative  cost 
data  In  order  to  avoid  the  resource  commitment  required  for  full 
cost  estimates.  Full  cost  estimates  could  then  be  restricted  to 
the  alternatives  which  appear  to  yield  the  highest  payoff. 
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(2)  Uncovered  POMCUS.  The  model,  as  written,  handles  POMCUS 
uncovered  stocks  as  resupply  to  the  theater  and  subsequent  Issue 
to  the  committed  units.  Since  the  model  Is  a system  model  which 
begins  the  simulation  with  an  M-day  distribution  of  tanks,  the 
processing  of  uncovered  POMCUS  equipment  can  be  simulated  In  the 
same  manner  as  the  processing  of  PWRMS  stocks.  In  order  to  accom- 
plish this,  the  process  of  preparing  a tank  for  turn-in  to  DARCOM 
would  have  to  be  modeled.  This  would  determine  the  workload  re- 
quired In  CONUS  to  prepare  the  tank  for  shipment.  If  uncovered 
POMCUS  Is  to  be  Issued  to  reserve  units  falling  In,  this  option 
for  distributing  left-behlnd  tanks  would  have  to  be  Included  In 
the  model.  To  model  the  processing  of  uncovered  POMCUS  at 
REF0R6ER  and  2+10  stations,  available  manpower  and  skills  to  be 
available  at  these  CONUS  locations  would  have  to  be  estimated. 

The  BALFOR  Model  with  these  changes  could  then  be  used  to  deter- 
mine the  relative  effect  on  the  committed  tank  force  of  selected 
plans  for  handling  uncovered  POMCUS  equipment. 

(3)  Other  Types  of  Combat  Service  Support.  The  model  as  It 
Is  now  written  adaresses  maintenance  support  and  the  supply  sup- 
port needed  to  Issue  major  Items.  Other  CSS  functions  can  be 
evaluated  for  addition  to  the  model.  They  are  listed  below. 

(a)  Helicopter  maintenance  support. 

(b)  Missile  maintenance  support. 

(c)  The  workload  of  combat  damaged  vehicle  rec'very. 

(d)  Workload  related  support  of  ammunition,  POL,  and  some 
hospital  functions. 

(e)  Supply  of  repair  parts 

(f)  Transportation  support. 


13.  CONCLUSIONS/RECOMMENDATIONS 
a.  Conclusions 

(1)  CSS  Impacts  on  the  committed  force  can  be  modeled  and 
measured  In  magnitude  and  duration. 

(2)  CSS  and  combat  force  changes  can  be  evaluated  with  one 
measure  of  effectiveness. 
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(3)  The  committed  force  at  FEBA  over  a specified  time  Inter- 
val can  be  used  successfully  as  a measure  of  effectiveness  In 
those  force  studies  which  measure  the  deployment,  warfighting,  and 
sustainability  of  a force. 

(4)  Sensitivity  analysis  to  establish  risk  levels  can  be 
used  within  CAA  to  Isolate  Input  variables  which  are  driving  study 
results. 

(5)  Recovery  and  attrition  levels  are  key  factors  In  the  de- 
termination of  the  PWRMS  levels  needed  to  support  the  force. 

b.  Recommendations 

(1)  Combet  damage  and  repair  distributions  should  be  derived 
for  weapon  systems  other  than  tanks  In  order  for  CAA  to  expand  Its 
CSS  analysis. 

(2)  A follow-on  study  effort  to  SSIPL  should  be  defined  and 
Implemented  with  the  Incorporation  of  cost  as  Its  first  priority. 
The  priority  of  adding  other  CSS  functions  to  the  BALFOR  should  be 
determined. 

(3)  The  BALFOR  Model  should  be  adopted  as  a standard  CAA 
analytical  tool. 
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APPENDIX  B 

STUDY  DIRECTIVE 


MOCA-FDC 


14  June  1978 


MEMORANDUM  FOR:  DIRECTOR,  FCDD 

SUBJECT:  Study  - Methodology  to  Determine  Support  and  Sustainability 
Implications  of  Increased  POMCUS  Levels  (SSIPL) 


1.  PURPOSE  OF  STUDY  DIRECTIVE.  To  establish  a study  to  assess  the 
contribution  of  support  functions  on  combat  force  performance  for 
various  levels  of  POMCUS. 

2.  STUDY  TITLE.  Methodology  to  Determine  Support  and  Sustainability 
Implications  of  Increased  POMCUS  Levels  (SSIPL), 

3.  BACKGROUND.  The  DOD's  FY  80-84  Consolidated  Guidance  directed  major 
Increases  to  POMCUS  levels  In  Europe.  These  Increases  will  result  In 

an  undetermined  Increase  In  the  workload  of  support  force  units.  No 
method  currently  exists  within  DA  to  analyze  the  impact  on  force 
performance  that  these  Increased  workloads  have.  This  study  will 
develop  an  automated  method  to  relate  these  Increased  support  require- 
ments to  POMCUS  levels. 

4.  STUDY  SPONSOR.  Commander,  US  Army  Concepts  Analysis  Agency. 

5.  STUDY  AGENCY.  US  Army  Concepts  Analysis  Agency. 

6.  TERMS  OF  REFERENCE 

a.  Problem.  To  quantify  In  a common  measure  of  effectiveness  the 
relative  contribution  to  force  performance  of  combat  forces,  and  the 
supporting  and  sustaining  forces. 

b.  Purpose.  To  develop  a model  and  methodology  to  be  used  to 
simulate  and  analyze  the  contribution  of  selected  support  force  func- 
tions to  the  combat  force  performance  at  selected  levels  of  POMCUS. 

c.  Objectives. 

(1)  To  develop  and  demonstrate  a methodology  which  assesses  the 
force  performance  implications  of  a change  In  the  POMCUS  Issue  rates,  the 
maintenance  return  rates,  and  the  PWRMS  Issue  rates  as  they  affect  the 
committed  tank  force  In  CENT AG. 
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SUBJECT:  Study  - Methodology  to  Determine  Support  and  Sustainability 
Implications  of  Increased  POMCUS  Levels  (SSIPL) 

(2)  To  conduct  analysis  to  Identify  areas  where  changes  In  resource 
allocation  among  support  functions  will  Improve  force  performance. 

d.  Scope.  The  study  will  develop  a simulation  model  that  repre- 
sents the  state  and  time  events  associated  with  the  committed  tank 
force.  Added  to  the  simulation  is  an  optimization  module  to  provide 
maximization  of  a set  of  user-defined  decision  variables. 

e.  Constraints.  The  study  will  not  exceed  one  year. 

f.  Time  Frame.  1978-85. 

g.  Assumptions.  Assumptions  not  already  Implied  or  specified 
within  references  will  be  provided  by  the  Technical  Review  Board,  CAA. 

h.  Essential  Elements  of  Analysis. 

(1)  What  Is  the  Impact  on  force  performance  of  an  Increase  In 
POMCUS  site  issue  rates  at  the  FY  78,  FY  82  and  FY  84  level  of  POMCUS? 

(2)  What  Is  the  Impact  on  force  performance  of  an  Increase  in 
maintenance  capability  at  the  FY  78,  FY  82,  and  FY  84  level  of  POMCUS? 

(3)  What  Is  the  Impact  on  force  performance  of  an  Increase  In 
PWRMS  Issue  capability  at  the  FY  78,  FY  82,  and  FY  84  level  of  POMCUS? 

f 4)  What  is  the  sensitivity  of  the  results  obtained  In  (1),  (2), 
and  (3)  above  to  changes  in  the  rates  of  noncombat  losses,  combat  losses 
and  major  item  abandonment? 

1.  Environment/Threat  Guidance.  The  Army  Force  Planning  Data  and 
Assumptions  (AFPDA)  and  the  CAA  Technical  Review  Board  recommendation 
are  applicable. 

7.  RESPONSIBILITIES. 

a.  Force  Concepts  and  Design  Directorate  will  provide  the  Study 
Director. 

b.  Methodology,  Resource  and  Computation  Directorate. 

(1)  Administer  the  one-week  GASP  IV  workshop. 

(2)  Provide  computer  support. 

(3)  Provide  technical  assistance  In  the  model  programing. 
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SUBJECT:  Study  - Methodology  to  Determine  Support  and  Sustainability 
Implications  of  Increased  POMCUS  Levels  (SSIPL) 

8.  LITERATURE  SEARCH. 

a.  DAMO-OD  and  DAMO-FD  have  the  responsibility  for  the  subject 
matter  of  the  study. 

b.  The  subject  Is  related  and  supports  the  following  studies. 

(1)  Total  Arrny  Analysis. 

(2)  OMNIBUS  Capability  Study. 

9.  REFERENCES. 

a.  AR  5-5,  The  Army  Study  System. 

b.  CSR  71-2,  US  Army  Operational  Readiness  Analysis. 

c.  FY  80-84  Consolidated  Guidance. 

10.  ADMINISTRATION. 

a.  Support  Required. 

(1)  Funds. 

(a)  TDY  funds  for  two  trips  Redstone  Arsenal,  Alabama  to  CAA  for 
one  person  (estimated  cost  $500.00). 

(b)  Funds  for  the  temporary  hire  of  two  GS-9/11  programer-analysts 
(estimated  cost  $40,000), 

(c)  Funds  for  a one-week  GASP  IV  workshop  (estimated  cost  $4500). 

b.  Study  Schedule. 

(1)  1 Jul  78.  Start  date  with  two  temporary  hires  GS-9  or  11  on 
board. 

(2)  15  Oct  78.  Steady  state  simulation  of  CENTAG  tank  commitment 
operating. 

(3)  15  Nov  78.  Maintenance,  POMCUS  and  PWRMS  Issue  queues  added. 

(4)  15  Dec  78.  Technical  Review  Board  to  assess  feasibility. 
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SUBJECT:  Study  - Methodology  to  Determine  Support  and  Sustainability 
Implications  of  Increased  POMCUS  Levels  (SSIPL) 

(5)  15  Mar  79.  CENTAG  simulations  completed. 

(6)  15  May  79.  Theater  simulations  completed. 

(7)  30  Jun  79.  Report  preparation  complete, 
c.  Control  Procedures. 

(1)  Direct  coordination  Is  authorized  and  encouraged  between  CAA 
and  DA  Staff. 

(2)  FD  will  submit  DD  Form  1498. 

(3)  CAA,  TRB  will  provide  study  guidance. 

ENNIS  C.  WHITEHEAD/JR. 

Major  General 
Commanding 

CF: 

DIRECTOR,  MRCD 
CHIEF,  PPCO 
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Deputy  Chief  of  Staff  for  Logistics 

15.  DF  to  DAMO-ODR,  OMNIBUS  Data,  29  June  78 


C-l 


CAA-TP-79-1 


US  Army  Concepts  Analysis  Agency 

16.  Introduction  to  Combat  Damage,  Briefing  Notes  MOCA-FDS, 
Spring  78 

17.  OMNIBUS  Capability  Study,  FY  78,  CAA-SR-78-2,  Feb  78 

18.  OMNIBUS  Capability  Study,  FY  79,  CAA-SR-79-  , to  be  pub- 
lished 

19.  Total  Army  Analysis  1985  (TAA-85),  CAA-SR-79-  , to  be  pub- 
lished 

20.  Transportation  Model  (Draft  Documentation),  to  be  pub- 
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21.  POMCUS  Objective  Levels  (POMOL)  Study,  CAA-SR-79-  , to  be 
published 

22.  Wartime  Requirements  for  Ammunition  and  Materiel,  FY  81-85 
(AMMO  P-85  WARF-85) , CAA-SR-79-1,  Feb  79 

23.  Army  Force  Planning  Data  and  Assumptions,  FY  1978-1985 
(AFPDA  FY  79-85),  CAA-SR-78-6,  Oct  78 

US  Army  Logistics  Center 

24.  Maintenance  Simulation  of  Restructured  General  Support 
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APPENDIX  E 

BALFOR  MODEL  INTEGRATION  WITH  GASP  IV  PROGRAMS. 


E-l.  GENERAL.  This  appendix  describes  the  logical  relationship 
that  exists  between  GASP  IV  and  BALFOR  Models. 

a.  Paragraph  E-2  presents  an  overall  flow  diagram  along  with  a 
listing  of  all  the  routines. 

b.  Paragraph  E-3  describes  the  basic  event  data  block  used  by 
the  event  routines.  This  paragraph  also  describes  the  linkage 
structure  for  these  blocks  In  the  file. 

c.  Paragraph  E-4  briefly  describes  the  event  processing  rou- 
tines in  GASP. 

d.  Paragraph  E-4  presents  a brief  description  of  the  BALFOR 
event  routines. 

e.  Paragraph  E-5  presents  an  example  of  how  the  BALFOR  event 
routines  use  the  GASP  IV  language. 

E-2.  FLOW  DIAGRAMS  AND  EXTERNAL  REFERENCES.  A flow  diagram  of 
GASP  IV  and  BALFOR  written  subroutines  Is  shown  In  Figure  E-l. 
Utility  routines  are  shown  In  Figure  E-2.  Tables  E-l  and  E-2  show 
external  references  In  BALFOR  routines  and  GASP  routines. 
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Figure  E-l.  Flow  Diagram  of  GASP  IV,  User,  and  System  Routines 
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Table  E-l.  BALFOR  Routine  External  References 


Routine  I External  References 


ARRIVL  FILEM 

CHECK 

COMMIT 

DOHIST  HISTO 

EVNTS  SSAVE ; UNSTAT,  UNMAIN,  MAINT,  WARES,  THSTOK, 

CHECK,  FILEM,  ARRIVL,  COMMIT,  HOSPTL,  URESUP, 
WRARR,  RESEP.V , MASUIN,  UNITS 


HOSPTL 

INTLC 

MAIN 

MAINT 

MASUIN 

OBJCT 

ONHAND 

OTMCC1 

OTMCC2 

OTPUT 

RESERV 

SSAVE 

THSTOK 

UNITDS 

UNMAIN 

UNSTAT 

VERR 

URESUP 

WARES 

WRARR 


PRNTQ,  FILEM,  UERR,  ONHAND 
ERTRAN,  GASP,  CLOSE 
0TMCC2 


FILEM 


GPLOT,  COLCT 
FILEM 

OTMCC1 

FILEM 
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Table  E-2.  GASP  Routines  External  References 


Routine 

External  References 

CLEAR 

ERROR 

COLCT 

ERROR 

DAT  IN 

ERROR,  DRAND,  SET,  FILEM,  CLEAR,  INTLC,  STATE, 

PRNTQ,  PRNTS 

DRAND 

ERROR 

UERR,  SUMRY,  ERTRAN 

FILEM 

ERROR 

GASP 

ERROR,  DATIN,  SSAVE,  SCOND,  STATE,  MONTR, 

EVNTS,  RMOVE,  OTPUT,  SUMRY 

GPLOT 

ERROR 

HISTO 

ERROR 

MONTR 

ERROR,  SSTOP,  FILEM,  UMONT,  PRINTQ,  CLEAR, 

PRNTS,  SUMRY 

PRNTQ 

ERROR 

PRNTS 

ERROR 

RMOVE 

ERROR 

SCOND 

DUMMY  ROUTINE 

SET 

ERROR 

STATE 

DUMMY  ROUTINE 

SUMRY 

ERROR,  COLCT,  TIMST,  PRNTQ,  PRNTS,  HISTO,  GPLOT 

TIMST 

ERROR 

UMONT 

DUMMY  ROUTINE 

SSTOP 

OBJCT 

E-3.  BASIC  EVENT  BLOCK  AND  FILE  LINKAGE 

a.  Basic  Event  Block.  The  basic  event  block  Is  an  array  of 
seven  words,  ATRIB.  The  array  contains  the  necessary  Information 
to  execute  an  event  routine.  When  an  event  Is  to  be  placed  In  the 
event  store,  the  time  of  the  event  and  the  number  of  the  event  are 
placed  In  ATRIB(l)  and  ATR I B ( 2 ) . Additional  data,  ATRIB(4)  thru 
(7)  Is  also  placed  In  ATRIB.  A call  Is  placed  on  subroutine  FILEM 
and  the  data  is  placed  In  the  event  file  In  proper  time  sequence. 
As  indicated  on  the  flow  diagram,  there  are  nine  time  events.  The 
data  that  must  be  transferred  to  the  event  list  Is  described  In 
the  following  table  for  each  time  event. 
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Table  E-3,  Data  to  be  Transferee!  to  the  Event  List 


ATR  IB 

EVENT,  CODE 

1 

2 

3 

4 

5 

6 

UNSTAT.l 

Time 

Event, 

Code 

ARRIVL,  2 

II 

II 

Unit 

COMMIT,  3 

II 

II 

Unit 

HOSPTL ,4 

II 

II 

C 

D 

URESUP.5 

II 

II 

Unit 

A 

C 

B 

WRARR.6 

II 

II 

A 

B 

RESER.7 

II 

II 

C 

D 

MASUIN.8 

II 

II 

G 

F 

B 

UNITDS,  9 

II 

II 

Unit 

F 

Index  for  table  E-3 


A.  Amount  of  equipment 

B.  Equipment  type 

C.  Number  of  personnel 

D.  Personnel  type 

E.  Table  Index 

F.  Option  switch 

If  option  switch  (F)  = 4,  Increment  DS  maintenance  by  ATRIB(5) 

3 5,  Increment  GS  maintenance  by  ATRIB(5) 

= 6,  Increment  war  reserve  output  ATR I B ( 5 ) 


b.  File  Linkage  Structure.  Each  routine  that  calls  FILEM  sup- 
plies the  data  Indicated  in  Table  E-3.  FILEM  transfers  the  data 
Into  available  storage  and  adds  two  pointers,  one  at  the  front  end 
of  the  block  and  one  at  the  back.  The  linkage  structure  Is  a for- 
ward and  backward  linked  list.  Available  storage  Is  also  linked 
In  a similar  manner,  but  has  a -1  In  place  of  the  backwards 
pointer.  Thus,  to  add  an  event  Into  the  event  list  one  transfers 
the  data  to  available  storage,  determines  the  position  of  the 
block  In  the  event  list  and  updates  the  pointers.* 

*A  detailed  description  of  the  GASP  IV  filing  system  Is  con- 
tained on  pp  31-36,  the  GASP  IV  Simulation  Language.  1 
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E-4.  EVENT  PROCESSING 

a.  FILEM  is  the  GASP  routine  that  handles  the  storing  of  event 
data.  Each  call  on  FILEM  results  in  a block  of  data  being  trans- 
ferred to  the  event  list  and  placed  in  proper  time  sequence.  A 
description  of  the  data  and  how  the  data  is  placed  in  proper  time 
sequence  is  described  in  reference  31. 

b.  RMOVE  is  the  GASP  routine  that  places  the  first  block  of 
data  In  the  event  list  into  ATRIB.  It  returns  the  block  to  avail- 
able storage  and  returns  control  to  GASP. 

c.  EVNTS  is  a user  written  routine  which  transfers  control  to 
the  proper  event  routine.  GASP  calls  RMOVE  to  place  the  next 
event  data  Into  ATRIB.  Next  GASP  calls  EVNTS  to  execute  the  rou- 
tine associated  with  the  data.  After  executing  the  event  routine, 
EVNTS  returns  control  to  GASP. 

d.  GASP  is  the  routine  that  controls  the  execution  of  the  time 
events. 


e.  DATIN  Is  the  GASP  routine  which  Initializes  the  GASP  arrays 
and  Inputs  the  GASP  data. 


f.  The  GASP  routines  which  play  a utility  role  are  briefly  de- 
scribed. Some  of  these  routines  are  called  but  are  not  used.  A 
complete  descriptlon.of  these  routines  may  be  found  in  the  GASP  IV 
Simulation  Language.  1 


(1)  DRANO  A psuedo  random  number  generator  (not  used). 

(2)  COLCT  Computes  the  mean  standard  deviation,  standard 

deviation  of  the  mean,  coefficient  of  varia- 
tion, minimum  value,  maximum  value,  and  number 
of  observations. 


(3)  GPLOT  The  GASP  plot  routine 

(4)  PRNTQ  Prints  the  event  file  storage  area. 

(5)  PRNTS  Not  used 
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(6)  HISTO  Print  histograms 

(7)  CLEAR  Initialize  the  storage  arrays  SSOBV  and  SSTPV, 

the  statistical  arrays  used  by  COLCT  and  TIMST. 

(8)  MONTR  The  subroutine  MONTR  Is  a debugging  routine. 

This  routine,  which  may  be  very  useful  In  the 
debbugging  of  a program,  Is  not  necessary  to 
the  logical  relationship  between  GASP  IV  and 
the  user  program.  If  subroutine  MONTR  Is 
called,  then  the  following  options  are  avail- 
able. Let  JEVNT  be  the  event  code  and  JX=- 
JEVNT. 

(a)  JEVNT>0,  PRINT  TNOW,  (ATRIB(I),  1=1,7) 

PRINT  TTNEX,  (QSET(I),  1=1,7) 
or  PRINT  TTFIN  If  TTNEX  does  not  exist. 

(b)  JEVNT<0 

1 JX>6,  call  error  and  return 

JX=2,  clear  storage  arrays  and  return 

2 ATRI B ( 3 ) <0  and 

JX=1 , call  PRNTQ  and  return 
JX=3,  call  PRNTS  and  return 
JX=4,  call  PRNTQ,  PRNTS  and  return 
JX=5,  call  SUMRY  and  return 

3 ATRIB( 3)>Q 

Plant  the  event 
ATR I B ( 1 ) =TN0W+ATR I B ( 3 ) 

ATRIB(2)=JEVNT 
CALL  FILEM(l) 

and  then  proceed  as  In  part  B. 

(9)  SET  Initialize  the  event  file  storage  area. 

(10)  STATE  Dummy  routine 
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(11)  SUMRY 

. \ 

A summary  print  routine  to: 

a.  Print  statistics  collected  by  COLCT 

b.  Print  statistics  collected  by  TIMST 

c.  Print  event  file  statistics 

d.  Print  state  storage  area 

e.  Print  histograms 

f.  Print  tables  and  plots 

(12)  SCOND 

Dummy  routine 

(13)  TIMST 

Computes  the  mean,  standard  deviation,  minimum, 
maximum,  time  Interval,  and  current  value. 

(14)  UMONT 

Sets  the  Input  parameter  to  zero. 

(15)  ERROR 

GASP  error  exit. 

E-5.  BALFOR  EVENT  ROUTINES.  The  event  routines  are  nine  In  num- 
ber and  each  routine  will  be  given  a more  complete  description  In 
Appendix  G. 

1.  Event  number  1 consists  of  six  routines:  UNSTAT,  UNMAIN, 
MAI NT,  WARES,  THSTOCK  and  CHECK: 

UNSTAT 

Computes  the  noncombat  and  combat  losses  for 
each  unit 

UNMAIN 

Computes  the  unit  maintenance  which  Is  asso- 
ciated with  each  combat  unit. 

MAI  NT 

Computes  the  rear  maintenance  which  Is  asso- 
ciated with  each  type  of  equipment. 

WARES 

Determines  the  war  reserve  output  rate  for  each 
type  of  equipment. 

THSTOK 

Supplies  units  with  new  equipment  and  person- 
nel . 

CHECK 

A summary  print  table. 

2.  ARRIVL 

Sets  the  units  onhand  equipment  level  and 
schedules  the  commitment  of  the  unit. 

3.  COMMIT 

Sets  the  status  of  the  unit:  THTRSM(N,1)=2. 
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Returns  hospital  personnel  to  theater  stocks. 

Receives  unit  supplies  from  theater  stocks. 

Determines  the  Increase  In  war  reserve  stocks 
of  equipment. 

Receives  reserve  personnel  Into  theater  stocks. 
Increases  the  maintenance  or  supply  capacity. 
Sets  the  maintenance  capacity  of  a unit. 


a.  User  Utility  Routines.  The  user  routines  which  act  in  a 
utility  role  are  briefly  described.  These  routines  are  generally 
concerned  with  Input  and  output;  however,  a few  are  computational 
In  nature.  A complete  description  of  these  routines  may  be  found 


in  Appendix  6. 

(11 

QOHIST 

Computes  the  total  number  of  vehicles  of  all 
types  In  the  unit  maintenance  queue;  the  total 
number  of  vehicles  of  all  types  In  the  area  DS 
maintenance  queue.  The  total  number  of  vehi- 
cles of  all  types  In  the  rear  GS  maintenance 
queue.  DOHIST  then  calls  the  GASP  histogram 
routine,  HISTO. 

(2) 

INTLC 

The  user  data  Input  routine,  INTLC,  also 
Initializes  the  BALFOR  summary  arrays. 

(3) 

OBJECT 

Dummy  routine 

(4) 

0TMCC1 

A diagnostic  print  routine. 

(51 

0TMCC2 

A diagnostic  print  routine. 

(61 

OTPUT 

The  BALFOR  summary  print  routine. 

(7) 

ONHAND 

Sets  the  onhand  equipment  level  and  personnel 
level  of  a unit.  Also  computes  the  maintenance 
capacity  of  a unit. 

(8) 

SSAVE 

Prints  the  tables  and  plots. 

(9) 

UERR 

A user  error  routine. 

CAA-TP-79-1 

4.  HOSPTL 

5.  URESUP 

6.  WRARR 

7.  RESERV 

8.  MASUIN 

9.  UNITDS 
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E-6.  EXAMPLE.  The  following  example  explains  the  basic  logical 
relationship  of  GASP  IV  with  the  BALFOR  time  events.  The  example 
Is  self-explanatory;  however,  one  should  note  the  following  Items: 

a.  For  reasons  of  clarity,  the  common  blocks  have  not  been  In- 
cluded. 


b.  Calling  sequences  have  been  truncated,  If  not  essential  to 
the  logical  flow. 

c.  One  could  describe  the  example  as  a computational  procedure 
which  Is  time  sequenced. 

d.  FI  LEM  should  not  be  called  with  times  which  are  meaning- 
less, since  FILEM  does  not  check  for  erroneous  times. 

e.  The  events  counter,  NBEVTS,  Is  the  total  number  of  events 
In  the  file;  FILEM  Increments  the  counter  and  RMOVE  decrements  the 
counter.  (GASP  IV  does  not  work  exactly  this  way  but  for  reasons 
of  clarity  this  method  has  been  used). 


Program  Main 

C Example  to  Illustrate  the  use  of  GASP  IV 

C with  BALFOR  time  events 

C 
C 

Call  GASP 
Print  1 

1 Format  (lx,  'End  of  Run') 

End 

C 

C 

SUBROUTINE  GASP 

C Initialize  GASP  and  Input  GASP  data  cards 

C Initialize  program  and  Input  data  cards 

Call  DATIN 
Call  INTLC 
C 
C 

C Test  for  NB  of  events  remaining 

1 IF  (NBEVTS)  3,  4,  2 
C 

C 

C Place  next  time  event  into  ATRIB  and  EXECUTE 

2 Call  RMOVE  (1) 

IF  ( ATRIB ( 1 ) .gt.  KDAY)  return 
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Call  EVNTS 
C go  to  1 

C 
C 

C EVENT  counter  is  negative,  signal  an  error 

Call  ERROR 
Return 

C 

C 

C Number  of  events  Is  zero,  end  of  run 

4 Return 
End 

SUBROUTINES  EVNTS 

C Transfer  control  to  proper  event  routine. 

C 

Ix-ATRIB(2) 

go  to  (1,2, 3, 4, 5, 6, 7, 8, 9),  IX 
C 
C 

C Compute  noncombat  and  combat  equip  losses,  maintenance 

C Requirements,  war  reserve,  supplies,  and  print  check  table. 

1 Call  UNSTAT 
Call  UNMAIN 
call  MAINT 
call  MAINT 
call  THSTOK 
call  CHECK 

C Test  for  end  of  computations 

IF ( TNOW . ge.  KDAY)  Return 
C Plant  an  EVENT  of  Type  1 for  next  day. 

ATRIB(1 )=TN0W+1 
ATRIB(2)=1 
CALL  FILEM(l) 

Return 

C 

C 

C Set  unit  equipment  level,  arrival  status 

2 Call  ARRIVL 
Return 

C 

C 

C Commit  unit  to  combat 

3 Call  COMMIT 
Return 

C 

C 

C Return  hospitalized  personnel  to  theater  stocks 
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4 Call  HOSPTL 
Return 


Unit  supplies  are  received  from  theater  stocks. 
5 Call  URESUP 
Return 


Increase  war  reserve  STOCKS 
6 Call  WRARR 
Return 


Reserve  Personnel  Enter  Theater  Stocks 
7 Call  RESERV 
Return 


Increase  Maintenance  Capacity  or  supply  capacity. 
8 Call  MASUIN 
Return 


Set  the  maintenance  capacity  of  a unit. 
9 Call  UNITDS 
Return 

End 
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CAUTION: 


APPENDIX  F 


A USER  AMD  PROGRAMMER 
GUIDE 

TO  EXECUTE  THE  8 AL  FOR  SIMULATION 


Br:  MARC  ABRAMS 
date:  n march  istg 
DOCUMENT  version;  VERSION  * 
NASTCREILE  VERSION:  LEVEL-GRIT  ,2  ,7G 

site;  u.s.  army  concerts  analtsis  agency 

RHONE:  2GS-1SBG 


this  document  has  been  checked  for  accuracy, 

ALTHOUOH  as  IN  ANY  SOFTWARE  DOCUMENTATION,  THE 
DESCRIPTION  MAY  NOT  BE  IDO*  ACCURATE  f 
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1.  INTROOUTION 


1.1.  PURPOSE  OF  MANUAL 


THIS  MANUAL  OOCUHEHTS  A UT*L  ITT  PROGRAM,  NASTERFILE, 
WHICH  EXECUTES  THE  BALFOR  MODEL  AND  MAINTAINS  ITS  PNOORAN 
FILES. 

ADDITIONAL  COPIES  OF  THIS  DO CUMFNT  NAT  BE  OBTAINED  »T 
TYPING 

BDOC.DL  B ZDOC  »M  AS  TT  RF ILE 


1.1.  BRIEF  DESCRIPTION  OF  CONTENTS 


CHAPTER  2 IS  A USER'S  BUIOE  TO  THE  NASTFFILE  PROCESSOR. 
IT  DETAILS  HOW  TO  EXECUTE  THE  BALFOR  NOOEL  AND  TO  MAINTAIN 
THE  PROGRAM  FILES. 

THE  NEXT  CHAPTER  IS  A PROGRAWER 'S  GUIDE  TO  THE  NOOEL. 
OUTLINES  OF  THE  FORTRAN  IV  CODING  IN  EACH  SUBPROGRAM 
DESCRIBE  THE  NASTFRFILE  PROGRAM.  THE  CHAPTER  ENDS  WITH  A 
LIST  OF  THE  BASE  CASE  INPUT  DATA. 


l.J.  REFERENCES 


ADDITIONAL  INFORMATION  ON  GASP  IV  AND  THE  BALFOR  MOOEL 
CAN  BE  FOUND  IN  THE  FOLLOWING  SOURCES! 

1.  LEVEL  1-9  BALANCED  FORCE  IBALFORI  DOCUMENTATION 

2.  SOURCE  COOES  BF  LEVEL  -B . 9,  AND  10  BASP  IV  USER  PROGRAMS 
I.  AUTHOR'S  ROTES 

A,  A.  ALAN  B.  FRITSK  ER  • 'THE  GASP  IV  SIMULATION  LANGUAGE* 

F.  MICHAEL  PATRICK  QATELY.  ’DECISION  OPTIMIZATION  MOOULE  FOR 
THE  GASP  IV  SIMULATION  LANBUABE* 
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Z.  USER'S  tuior 


2.1.  OVERVIEW 


2.1.1.  history:  the  problem 


THERE  IRE  THREE  JOBS  INVOLVCO  IN  PROGRAMMING  A 
simulation:  hritino  ano  oerurins  the  cooino.  maintaining 

PROGRAM  ANO  DATA  PILES.  AND  EXECUTING  THE  HOOFL.  THIS 
SECTION  TREATS  THE  LAST  TWO  STEPS. 

MAINTAINING  files  is  a confusing  PROCESS  BECAUSE  each 
HENSCR  OF  THE  STUDY  (ROUP  RUST  RELY  ON  FILE  AND  ELEMENT 
NAMES  TO  FIND  PROBRAN  VERSIONS.  DATA  FILES.  AND  RUNSTREANS 
IN  A MYRIAD  OF  FILES.  USUALLY  THE  NAMES  ARE  ANBTSUOUS 
BECAUSE  NONE  THAN  ONE  VERSION  OF  A GIVEN  ELEMENT  EXISTS 
AS  IT  IS  DEVELOPED.  THE  SHORT  LIFE  OF  THESE  DEVELOPMENTAL 
ELEMENTS  AND  THE  RATE  AT  MHICN  THEY  ARE  UPDATED  PRECLUDES 
DOCUMENTING  THEN. 


2.1.2.  masterfile:  the  solution 


TO  ALLEVIATE  THIS  STUMBLING  BLOCK  THE  MASTERFILE 
PROCESSOR  NAS  CREATED. 

KITH  RESPECT  TO  FILE  NAINTEMANCE  THIS  UTILITY 
PROVIOES  TNO  FUNCTIONS.  FIRST  IT  KEEPS  TRACK  OF  THE  LATEST 
VERSIONS  OF  DEVELOPMENT  PROGRAMS.  THEREBY  ELIMINATING  THE 
NEED  FOR  MORE  THAN  ONE  VERSION  OF  ANY  PROGRAM.  SECOND  IT 
AUTOMATICALLY  DOCUMENTS  DATA  ELEMENTS  AMO  ABSOLUTE 
PROGRAMS.  IN  CONJUNCTION  HTTM  ITS  DOCUMENTING  FUNCTION 
MASTERFILE  KEEPS  A RECORD  OF  WHAT  SOURCE  PROGRAMS  HERE 
USED  TO  CREATE  ALL  ABSOLUTE  PROGRAMS  AND  MOVES  THESF 
PROGRAMS  OUT  OF  THE  USER'S  DEVELOPMENTAL  FILE  INTO  A SPECIAL 
LIBRARY. 

THE  MECHANICS  OF  THESE  FUNCTIONS  ARE  COMPLETELY 
TRANSPARENT  TO  THE  USER  AND  ARE  DESCRIBED  IN  DETAIL  IN  THE 

next  chapter. 

FROM  A USER  STANDPOINT  THE  MASTERFILE  PROGRAM  IS  A 
CONVERSATIONAL  PROGRAM.  ASKING  THE  USER  TOR  A MINIMAL  AMOUNT 
OF  DATA  TO  COMPILE  AND  EXECUTE  AN  ABSOLUTE  ELEMENT.  THE 
INTERACTIVE  NATURE  OF  MASTCR  FILE  DOES  NOT  PRECLUDE  ITS 
BEING  USEO  IN  A ■BATCH  FNVIORNNENT. 
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EXECUTING  THt  ABSOLUTE.  THE  THIRD  JOB  OF  I PROGRAMMER 
• NO  THE  THE  USERi  IS  A TINE  CONSUMING  PROCESS  BECAUSE 
WHENEVER  A DAT*  ELEMENT  IS  UPDATED  ALL  RUNSTRFAHS  USED  TO 
EXECUTE  THE  MODEL  BECOME  OBSOLETE. 

IDEALLY • A USER  MOULO  ONLY  NEED  TO  TYPE  "RUN  ABSPROG" 
OR  *XGT  ABSPROG"  TO  SUXCRLV  EXECUTE  A PROGRAM.  WHAT 
COWLICATES  THIS  PROCESS  IS  THAT  THE  USER  MUST  rMTER 
EXEC  B CONTROL  STATEMENTS  BEFORE  THE  BX8T  STATEMENT  TO 
TAYLOR  THE  OPERATING  ENVIORNMENT  TO  THE  ENVIORNMENT 
NEEDED  BY  A PROGRAM.  THIS  PREPARATION  MAY  INCLUDE 
ASSIGNING  FORTRAN  DATA  FILES.  ASSIGNING  SYMBIONT  FILES. 
AND  NAKINB  DATA  FILES  AVAILABLE  TO  THE  PROGRAM. 

BUT  SINCE  THIS  ENVIORNMENT  IS  VIRTUALLY  THE  SAME  EACH 
TIME  THE  MODEL  IS  EXECUTED.  THE  MASTERFILF  PROGRAM,  IN 
ADDITION  TO  MAINTAINING  DATA  FILES.  C»EATES  THIS 
ENVIORNMENT.  THUS  THE  MODEL  IS  NOT  RUN  OIRE  UNOER  THE 
CONTROL  OF  EXEC  B.  BUT  INDIRECTLY  THROUGH!  THE  MAS  TER  TILE 
PROCESSOR. 

THE  DESIGN  GF  NASTCRFILE  WAS  NOT  ESSENTIAL  TO 
DEVELOPING  THE  MODEL.  THE  DECISION  TO  DEVOTE  TINE  TO  ITS 
DEVELOPMENT  CAME  FROM  THE  PERCEPTION  THAT  AS  THE  SIZE  AND 
COMPLEXITY  OF  THE  MOO  EL  GREW  THE  SIZE  OF  PROGRAM  FILES 
AND  COMPLEXITY  OF  EXECUTION  WIU.  ALSO  BROW. 


2.2.  HOW  TO  USE  MASTER  FILE 


GIVING  STEP  BY  STEP  INSTRUCTIONS  ON  USING  THE  MASTER  FT  IE 
PROGRAM.  THIS  SECTION  CONTAINS  THE  BULR  OF  THE  USER'S  GUIDE. 


2.2.1.  THE  FIRST  STEP!  *2 ADD 


THE  FIRST  STEP  A USER  SHOULD  PERFORM  AFTER  SIONINO  A 
TERMINAL  ON  IS  TO  TYPE 


GADO  S2A0D  . 


82  ADD. 
FUNCTIONS. 


IS  A CANNED  RUNSTRCAM  WHICH  PERFORMS  TWO 
FIRS'  IT  COPIES  THE  MASTERFILF , SUSPEND.  AND 
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RESUMF  PROGRAMS  INTO  THE  USER'S  WORKSPACE.  SECOND  IT 
ALLEVIATES  THE  NEEO  FOR  THE  USE  TO  RFHEHBER  FILENAMES  LINE 
•S2RUNS*  OT  ATTACHINO  I OR  2 CHARACTER  ABBREVIATIONS  TO 
THEN.  A LIST  OF  ABBREVIATIONS  APPEARS  IN  TABLE  M. 

THF  ACTUAL  JCL  IS  LISTEO  IN  APPENDIX  B.  SECTION  S.  A 
DESCRIPTION  OF  THE  CONTENTS  OF  EACH  FILE  LISTED  IN  TABLE  2-1 
IS  INCLUDES  IN  APPENDIX  A.  SECTION  «. 


TABLE  2-1.  OUSE  ATTACHED  KNEHONTCS  FOR  COMMON  GASP  FILES 


MNEMONIC 


CORRESPONDING  FILENAMES  III 


D 

B 

I 

N 

R 

RD 

U 

X 

B 


B2D0C. 

B20ASP. 

0H*T 

8 IN  ASTEFTLf  . 121 
■2  RUNS. 
82HASTEBBR0.  121 
B2UP0ATE. 
S2XBT. 
COUON. 


notes: 

111  A DESCRIPTION  OF  THE  CONTENTS  OF  FILES  APPEARS 
IN  APPENOIX  A ICHAPTER  SI. 

Ill  THESE  ARC  THF  ONLY  FILES  WHICH  DO  NOT  RESIDE  ON 
RENOVASLE  DISK  PACK  36. 


OF  WHAT  VALUE  ARC  THESE  MNEMONICS?  A LIST  OF  ELEMENTS 
IN  A PROGRAM  FILE.  FOR  EXAMPLE.  COULD  RE  OBTAINED  BY 
ENTERING 
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•PRT.T  » 2D  ASP. 


OH 


•PUT  .T  0. 

THE  VALUE  OF  THESE  ABBREVIATIONS  HAY  NOT  SEEN  TO  BE 
OREAT.  BUT  TO  A VHOORAHHER  UNO  REFERENCES  THE  SAHF  FILES  AT 
THE  TERNXNAL  HA  NY  TINES  A DAY  THEY  ARE. 

IF  ONE  FORBETS  A HNENONXC  OR  A FILENAHE  HE  NAY 
OBTAIN  XT  SIHPLV  BY  TYPINB 

•PRTtX 

THE  BFOXNNINO  OF  THE  RESPONSE  IS  A LIST  OF  THE  FILES  IN 
TABLE  2-1  • A TYPICAL  ENTRY  IS! 


UNCLASSIFIEO.OASPt  1»  .FlA.A.P  , NANE  ITf Ht 


•UALXFIER  • • • • * 

FILENAHE  AND  CYCLE  » ♦ • • 

DISK  DRIVE  NODEL  • * • 

MSB  OPTIONS  • • 

NAME  ITEH  — >FILE  IS  NOT  BASB'O  » 

ASS >FILE  IS  BASB'O  » 

FILE  HN TRONIC 


reference:  type 

•BUIOE  PRT 

FINALLY  THE  USER  NOV  HAS  FOUR  ADDITIONAL  CONTROL 

stathenents  available  to  hih.  these  are  listed  in  table 
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TABLE  2-2.  ADDITIONAL  EAEC  A CONTROL  STATEMENTS 


CONTROL  STATEMENT  DESCRIPTION 


•MASTERFILE 


SEE  SECTION  2.2.2 


•SUSPEND 


•RESUME 


OIRECT  OUTPUT  TO  MIOM 
SPEED  PRINTER.  SEC 
SECTION  2.7.1. 

SIMILAR  TO  • SUSP END 


•EDIT 


UNIVERSITY  OF  MARYLAND'S 
VERSION  OF  >ED. 


2.2.2.  THE  SECOND  STEP!  MASTERY ILE 


IN  ORDER  TO  BECOME  FAN1LAR  WITH  THE  USE  OF  MASTERY  ILE. 
READ  THROUOH  THE  ROLLONINO  SCCTICNS. 

TO  INVONE  MASTERFILE.  TYPE 


•MASTE  RE  IL  EC. OPTIONS} 


WHERE  THE  AVAILABLE  OPTIONS  ARE  LISTED  IN  TABLE  2-1. 
THE  FILE  SHOULD  SIGNON  WITH! 


UNCLASSIFIED. MASTERFILE  .MASTERY  ILE  LEVEL -SRl  T.  2.  TR-T  TNC-OATC 

WHERE  THE  TINE  ANO  DATE  ARC  SIX  OIGTT  NUMBERS. 

IF  THE  RESPONSE  IS  NOT  A SIONON  LINE.  BUT! 

PROGRAM  NOT  FOUND 

OR 

FILE  ERROR 
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THEN  THE  WORKSPACE  HAS  SEEM  ERASED  OR  THE  USER  TAILED  TO  ADO 
8?  ADD*  |SEf  SECTION  Z.Z.ll.  THIS  CAN  BE  REMEDIED  ST 
TTPINOJ 


enttr 

• ADO  BZADO. 
•MASTERFILEC  .OPT  IONS  3 


THE  OPTIONS  PRESENTED  BELOW  WILL  NOT  WORK  WITH  VERSION 
I7.Z.73  OP  HASTE  RFILft  AL  THOUGH  A LIST  OF  OPTIONS  IS 
INCLUDED  BELOW.  BV  RE  AD  IN  6 TABLE  Z-Z  THE  USER  WILL  GET  A 
•RASP  OF  THE  POWER  AVAIL  ABLE  THROUGH  HASTERFILF. 

THESE  OPTIONS  ARE  CURRENLV  BEING  INSTALLED  IN  THE  NEXT 
RELEASE  OF  HASTERFILE.  THEE  WILL  FACILITATE  BATCH  RUNS. 
WHEN  A CONVERSATIONAL  PROGRAM  IS  UNNECESSARY. 
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TABLE  2-3.  OPTIONS  ON  iMASTERFILC  CONTROL  STATEMENT 

OPTION  SPECIFICATION 


A 00  NOT  iADO  OR  BSTART  THE  RUNSTRE  AM  CREATED  9T 
HASTERFT^e  DYNAMICALLY.  INSTEAD  PRINT  THE  FILE 
NAME  rOR  FUTURF  USE  (THE  A OPTION  IS  IRNDREO 
IF  THE  X OPTION  IS  SPECIFIED.!. 

B NOT  USEO. 

C NOT  USEO. 

0 OELCTE  AN  OLO  ABSOLUTE  PROGRAM  AND  THE  SOURCE 

PROGRAMS  FROM  WHICH  THE  ABSOLUTE  NAS  CREATED. 

E EDIT  THE  BSRHPT  FILE.  131 

F RECOMPILE  ALL  PROGRAMS  IN  A USFR  SPECIFIED 
FILE  AND  STORE  THE  SOURCE  AND  OBJECT  PROGRAMS 
IN  FILE  B2UP0ATEVIA  B6SU0N. FLIST  . 

G NOT  USFD. 

H HOLO  THE  ARRKPT  fU.E»  <3! 

1 NOT  USED. 

J NOT  USED. 

K NOT  USEO. 

L NOT  USED. 

M PRINT  A MAP  OF  AN  ABSOLUTE.  THE  OUTPUT  IS  THE 
FILENAME. ELEMENT-NAME  OF  ALL  PROGRAMS  WHICH 
THE  ABSOLUTE  ELEMENT  WAS  BNAP*0  FROM. 

N NOT  USEO. 

0 PRINT  OPTIONS  CEBUAL  TO  SPECIFYING  NO  OPTIONS  I 

P NOT  USEO. 

B NCT  USEO. 

R RECOMPILE  THE  PROGRAMS  THE  USER  MOW  SPECIFIES. 
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S ISVH  THE  BRKPT  FILE.  METER  FILE  WILL  OUERT  THE 
USER  IS  TO  THE  OESIREO  PRINTER. 

T PRINT  I T IF'iX  OF  CONTENTS  FOR  ILL  USER  FILES. 

U NOT  USED. 

V NOT  USED. 

W NOT  USEO. 

X RIOT  THE  NODCL. 

T NOT  USEO. 

I NOT  USEO  IRESFRVEO  FOR  OIIONOSTIC  PURPOSFSI. 


notes: 

It  I UNUSED  SPECIF!  Cl  ISON  FIELDS  IRE  RESERVED  FOR 
FUTURE  E XP  IN  SI  ON  INO  SHOULD  NOT  BE  USED. 

121  THESE  OPTIONS  IRE  IGNORES  IN  VERSION  17.2.TB  OF 
RISTERFILE. 

lit  THESE  OPTIONS  IPPLV  TO  THE  BSUSPEND  STITENENT 
CELLED  IFTER  PRO  OR  IN  EXECUTION  ISEE  2.2.11, 
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IF  THE  0 OPTION  IS  USED#  Oil  IF  NO  OPTIONS  ARE  USED.  THE 
OPTION  SPECIFICATIONS  WILL  BE  POINTED  IN  A CONVERSATION AL 
NODE  FOB  THE  USER.  IN  OTHER  WORDS.  THE  OPTIONS  ARE  PROVIDED 
ONLT  SO  THAT  A USER  NAT  BYPASS  SECTIONS  OF  THE 
CONVERSATIONAL  CODE.  THIS  IS  ESPECIALLY  USEFUL  IN  * BATCH 
RUN. 


2.2. 2.1.  EXECUTIN'!  THE  NOOEL 


IN  THE  IDEAL  STUATION  DESCRIBED  IN  SECTION  2.1.2.  ONE 
ONLY  HAD  TO  TYPE  -GXGT  ABSPROG*  TO  RUN  THE  NOOEL.  THIS 
SITUATION  IS  ACHIEVED  WITH  NASTERFILE.  NO  RUNSTREAN  IS  EVER 
HE  ED  EO  TO  EXECUTE  THE  HODFL. 

BEFORE  RUNNING  NASTERFILE.  SET  UP  AN  INPUT  OECK  IN  SCPE 
FILE  OF  YOUR  CHOICE.  THERE  IS  NO  NEED  TO 

• KNOW  THE  NAME  OF  ANY  ABSOLUTE  ELEMENT. 

• KNOW  THE  NAE  OF  DATIN-DATA  DECKS. 

• OR  KNOW  ANY  EXEC  VIII  CONTROL  LANGUAGE 

TO  RUN  THE  NOOEL—  HASTCRFILE  TELLS  YOU  WHAT  IS  AVAILABLE  f 

ASSUMING  THAT  YOU  HAVE  SET  UP  AN  INPUT  DECK  WITH  THE 
NAME  G2IG.RU NSEC  1 SEE  TABLE  2-A  FOR  INPUT  DECKS  ALREADY  IN 
THE  COMPUTER!  » JUST  FOLLOW  THE  STEPS  OUTLINED  IN  THE  NEXT 
FEW  PAGES  TO  EXECUTE  THE  MODEL  USING  A2I  A.RUNSEC . 

CONSGUENTLY  TO  EXECUTE  THE  NOOEL  TYPE 


GNASTERFILE 


THE  RESPONSE  IS 


UNCLASSIFIED.  82 HA  ST ER FILE  «N  AS  TERF ILE  LE  VEL-  SR  IT  .2  .1*-  1ADG5A  -0 11  BIB 


NASTERFILE  IS  NOW  IN  A CONVERSATIONAL  MOOE.  ANY  DATA  IT 
NEEDS  TO  CREATE  A RUNSTREAN  WHICH  WAS  NOT  SPeiFICD  ON  THE 
GNASTERFILE  STATEMENT  WILL  BE  SOLICT TED  FRON  THE  USER. 

THf  FIRST  GUEBY  1ST 
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rNTER  0 IF  THIS  IS  TO  BE  0 BOTCH  100  STARTI  JOB  OR  l F OH  0 
OEHAND  JOB. 


DC  HA  NO  JOBS  V ILL  BE  EXECUTED  AFTER  HASTCRFILC  HAS  CHEATED  A 
RUNSTREAH.  WHILE  IN  CONTRAST  BATCH  JOBS  WILL  BE  BSTART  *0  • 

NEXT  HASTERFILC  REOUESTS  THE  FUNCTION  OF  THE  USER»S 
RUNSTREAH  IF  THIS  WAS  NOT  SPECIFIED  BY  AN  OPTION  ON  THE 
BNASTERFILC  STATEHCNT. 


WHICH  FUNCTION  DO  YOU  WISH!  TYPE  7 FOR  A LISTIT 


CHOOSE  ONE  OF  TIC  FOLLOWINO  FUNCTIONS} 

L CREATE  A NEW  RUNSTREAH  TO  EXECUTE  THE  POHCUS  HOOEL. 

Z CREATE  A NEW  ABSOLUTE  BY  RCCORPILINO  ALL  PROGRAMS  TN  YOUR  R8D  Far. 

5 CREATE  A NEB  ABSOLUTE  BY  CONPaiNO  ONLY  THr  PROGRAMS  YOU  SPECIFY  NOW. 

A PRINT  A NAP  OF  AN  ABSOLUTE  PROORAN. 

5 PRINT  A TABLE  OF  CONTENTS  ITOCI  FOR  ALL  OASP  FILES. 

S DELETE  AN  ABSOLUTE  PROORAN  AND  SOURCE  PROGRAMS  UNIQUE  TO  THAT  ELEMENT. 
WHICH  FUNCTION  DO  YOU  WISH? 


RESPOND  BY  ENTERING? 

» 

IF  YOU  ENTER  AN  INVALID  FUNCTION  NUMBER.  FOR  EXAMPLE  S.  THE 
RESPONSE  WILL  BE} 


S IS  A BAD  CHOICE— TRY  l.Z.S.A.S.  OR  SI 
YOUR  CHOICE? 


NOW  YOU  NAY  ENTER  A VALID  FUNCTION  CODE! 
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>1 


AF TEN  TOUR  RESPONSE  N ASTCRF ILE  RERUESTS  * TITLE  WHICH 
WILL  BE  USED  ON  THE  BHDS  CARD  IN  THE  RUNSTRE *N I 


WHAT  IS  THE  TITLE  OF  THIS  RUN  l<t<  CHARACTERS!  T 


THE  ARROW  AND  NUNRER  Ct  ON  THE  RIGHT  HAND  SIOF  Of  THE  RASE 
SHOWS  THAT  THE  LENGTH  OF  TOUR  TITLE  IS  LTNITEO  TO  BS 
CHARACTERS  • SHOWN  BY  THE  POINT  OF  THE  ARROW.  THIS  NOTATION 
IS  USED  IN  OTHER  QUERIES  • TOO. 

A BASIC  UNDERSTAND! NO  OF  WHAT  HASTCRFH.E  IS  DOINO  WHILE 
THE  USER  IS  BANOINB  AWAY  AT  THE  KEYBOARD  WILL  HAKE  THE 
REMAININS  EXPLANATION  CLEARER. 

NASTERFILE  EXECUTES  IN  TWO  STEPS! 

1.  DURING  EXECUTION  TINE  A RUNSTRE  AN  IS  CREATED. 

2.  THE  RUNSTREAH  IS  THEN  EXECUTEO.  THIS  PROCESS  IS 
LABELED  •DVNANIC  AA0D*IN8*  OF  THE  RUNSTREAH  ISEE 
THE  A OPTION  IN  TABEL  !!. 

THE  END  OF  STEP  ONE  ANO  BEGINNING  OF  STEP  TWO  IS  RCRC  OR 
LESS  TRANSPARENT  TO  THE  USER.  ALTHOUGH  THE  PROCESSOR  ASKS 
THE  USER  IF  HE  WANTS  TO  BAOD  THE  STREAH  OR  BSTART  THE  STREAH 
INHEDIATELV  IN  FUNCTIONS  2 ANO  1. 

THROUBH  THIS  DISCUSSION  IT  HAS  PROBABLY  BFCONE  APPARENT 
THAT  THERE  IS  A OISTICTION  BETWEEN  DEHANQ  JOBS  ANO  START 
JOBS.  IN  START  JOBS.  STEP  TWO  IS  SUBNITTEO  TO  THE  EXEC  AS  A 
BATCH  JOB  ANO  IS  PUT  IN  BACKLOG.  IN  A OENANO  JOB  STEP  2 IS 
EXECUTEO  WHILE  THE  USER  WAITS.  CONSEQUENTLY  NASTERFILE 
INSERTS  A SET  OF  BBRNPT  I ACTUALLY  BSUSPE NO/BRESuNE . SEE 
SECTION  2.2.11  STATENENTS  TO  START  ANO  FINISH  THE  RUNSTREAH. 

THE  FUNCTIONS.  THEN.  ARC  NOT  PCRFORHCO  AS  THE  USER 
ENTERS  THEN  BUT  ARC  EXECUTED  IN  A SECOND  STEP. 


2. 2.2.2.  EXECUTING  THE  NOOEL 


THIS  SECTION  APPLIES  IF  THE  USER  WANTS  TO  CREATE  A 
RUNSTREAH  TO  EXECUTE  THE  NOOEL.  THE  PRO  OR  AN  ASKS  THE  USER 
FOR  THE  NAHC  SF  A DATA  FILE  WHICH  CONTAINS  INPUT  FOR  THE 
USER  WRITTEN  OASP  IV  SUBPROORAN  IN  TIC.  SECTION  1.*  CONTAINS 
A CONPLCTE  CAHPLt  INPUT  DECK  OF  THF  BASE  CASE  DATA.  WHICH  IS 
USCO  TO  VERIFY  EACH  LEVEL  OF  THE  NOOEL.  REFER  TO  TABLE  2-R 
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FOR  TMt  LOCATION  OF  THE  INTLC-OATA  FILES. 

TABLE  M . LOCATION  OF  INTLC-OATA  CLCNENTS 
FILENAME  ELEMENT  NANF  DESCRIPTION 


02XRT  . RUNSEC/PROO  BASE  CASE 

. 0>T<  FOR 

. LEVEL- B 

1218  . RIM  SEC/BA  SE  RISE  CASE 

. OA II  FOR 

. LEVEL-B 


THUS  THE  PROCESSOR  QUERIES  I 


MHAT  IS  THE  NAME  OF  VCUR  INTLC  FILE  IFILENAHE.ELTNANESVCRS  IONI 7 
>B2I0.RUNSEC 
BEO.O  82 TO  .RUN SEC 
IS  THIS  CORRECT' IV  OR  N»  T 
>V 


THE  *B2I6.RUNSEC*  HAS  a USER  ENTRY. 

MASTERFILE  THEN  REQUESTS  THE  NAME  OF  AN  ABSOLUTE 
PROSRAH.  AT  THIS  POINT  THE  AUTOMATIC  DOCUMENTATION  FEATURE 
OF  MASTERFILE  ASSISTS  THE  USER  IN  IDENTIFY INB  THE  CONTENTS 
OF  A FILE  BY  PRTNTINO  THE  ABOLUTE  PROORAN  NAMES  AND  A ONE 
LINE  DESCRIPTION! 


CHOOSE  ONE  OF  THE  FOLLOWING  ABSOLUTE  ELEMENTS  TO  EXECUTE  BY  NUMBER! 


1 B2XBT.ABS/PRO0 

2 B2LCVCL-9.ABS 
I B2UPOATE.  ABS 

MAIN  TA INENCE 

A B2UP0ATE.  ABSMOO 
TOUR  CHOI CET 


THE  PRODUCTION  ABSOLUTE 
LEVEL-9  ABSOLUTE 

LEVEL- 10.  WITH  PMRMS  DIVERSION  INTO 
TEST  NODULE  FOR  VARIABLE  COMRAT 
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NEXT  THE  USER  CHOOSES  A FILE  WHICH  CONTAINS  DATA  FOR  THF 
OASP  IT  SUBROUTINE  OATIN. 


CHOOSE  A OATIN  OATA  FILE  SV  NUHOCR. 

1 02X0T .DATIN-OATA  . ONE  RUN- -NO  'VIKXZATION 

2 02NA.DATIN-0PT  . NNRNS  r A-  -RUNS  ThC  OPTNIZATION 

J I2HA. OATIN- TEST  . TTFIN=»  — S'  AFTER  20  DATS  FOR 
TESTINO  HOPFL. 

TOUR  CHOICET 


A CORE  OUNP  CAN  RE  OBTAINEO  RT  REPLTINB  WITH  • T"  TOS 


00  TOU  WANT  A OUNP  after  execution  or  onlt  on  ERROR  it  or 
NIT 
T 

CHOOSE  ANT  OF  THESE  OPTIONS: 

E OUNP  ONLT  ON  ERROR 

F FIELD  AT  A AL  PH  ANUHER IC  FORHAT  FOR  OUNP 
0 FORTRAN  FORNAT  FOR  OUNP 
P OUNP  RUN'S  PCT 

C OUNP  ONLT  WORDS  WHICH  HAVE  CHAN  SEP  DURTNO  EXECUTICN 
ENTER  OPTIONS  . SUCH  AS  CFO  7TTT 


JUST  AS  A NOTE  THE  ■ FORNAT  OUNP  WILL  PROPERLY  CONVERT 
FLOATING  POINT  NUNRERS  TO  RASE  10.  OUT  INTESERS  WILL  NOT  OC 
CONVERTED  TO  RASE  10.  ALTHOUOH  THF V WILL  RE  PRINTED  AS 
THOU  OH  THFT  WERE  IN  BASE  10.  THE  C OPTION  TS  ESPECIALLY 
USEFUL  SINCE  ONLT  CORE  LOCATIONS  USED  IN  THC  STNULATION  ANO 
CHANSCO  OURING  EXECUTICN  WILL  BE  PRINTEO.  THIS  HAKES 
LOCATING  VARIABLE  OUICKER.  FOR  HORF  INF  ORNATI  ON . TYPE 

ABU  IDE  PRO 

AT  THIS  VERT  INSTANT.  THC  NOOEL  WILL  BE  EXECUTING!  NO 
FURTHER  INTERVENTION  IS  NEEPED.  EXECUTION  TARES  1-A 
NINUTES.  DEPENDING  ON  HOW  RUST  THE  STSTER  IS. 

AT  THIS  POINT  NASTENFILE  HAS  CREATED  A RUNSTRCAH  ANO 
PLACED  IT  IN  THE  TEHPORARY  FILE  •RUNSTRFAHOOB.  • HASTFRFILE 
THEN  USES  THC  EDITOR  TO  HANIPULA'E  THIS  ELENENT.  ALTHOUOH 
THIS  STEP  IS  TRANSPARENT  TO  THE  USER.  NEXT  N ASTEFILE  WIU 
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• I DO  tL  RUNSTREAHT  t%  • AGAIN  THIS  ruNCTION  TS  TRANSPARENT  TO 
THE  USER » THC  LEVEL -»  MODEL  TAKES  ABOUT  1 MINUTE  TO 
EXECUTE  • AND  LEVEL-1  ABOUT  TWICE  AS  LONS.  ir  THC 
DIAGNOSTICS  ARC  TURNED  ON.  EXECUTION  time  INCREASES 
CONSIDERABLE. 

BUT  THC  USER  IS  CONflCTCLV  UNAWARE  OF  THE  PROCESSES 
DESCRIBED  IN  THC  LAST  FEW  PARAGRAPHS.  THE  RESONSE  HE 
RECEIVES  IS 


SUSPCNOCO 

EXAMINE.  PRINT.  HOLD.  OR  OROPT 


USE  THC  LETTERS  C.P.H.  OR  D AS  A RESPONSE.  *£*  WIU. 
ALLOW  COITINB  OF  THE  SYMBIONT  FILE  CONTAINING  THE  OUTPUT 
FROM  PROBRAH  EXECUTION  VIA  MARYLAND  UNIVERSITY’S  TEST 
EDITOR. 

ONE  NOT  OF  WARNING:  E0ITIN8  THC  FILE  IS  DONE  VIA  THE 
UNIVERSE V OF  MARYLAND  TEXT  EDITOR  WHICH  IS  SOMEWHAT  SIMILAR 
TO  UNIVAC’S  BCD.  SIMPLE  COMMANDS  SUCH  AS  P>  N»  C.  R.  I WILL 
NORN.  MANY  OTHERS  WILL  NOT. 

WHEN  YOU  ARE  FINISHED  EXAMINING  THE  CONTENTS.  TYPE 
‘EXIT*  INOT  OH  IT  Rl  . THC  ABOVE  RESPONSE  WILL  AGAIN  APPEAR  ON 
THC  TERMINAL. 

*P*  WILL  RESULT  IN  THE  BUCRRY 


WMERET 


VALID  LOCATIONS  TO  PRINT  THE  OUTPUT  AT  INCLUDE 


PR  < — ANY  HI  OH  SPEED  PRINTER  PR2  < — •UHLINEO*  PAPER  FROM 
MEOIUN  SPEED  PRINTER  PR!  OR  PR  A < — A PARTICULAR  HIGH 

SPEED  PTNTCR  DCTOOl  OR  DCT002  OR  DCTOOS  < VERY  LCW 

SPEED  PRINTERS  IN  ROOMS  721  OR  I2TA 


ASSUMING  YOUR  RESPONSE  WAS  'PR*.  THE  SYSTEM  WIU  RESPOND 
WITH  THIS  MESSAGE: 
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SENT  TO  PR  J 


NHERE  )!••••  IS  YOUR  RUN  TO . 

IF  THC  USER  TYFES  'H*  THE  PILE  IS  MELDi  AM  REMAINS 
MAITINS  UNTIL  THE  USER  TYPES 


ARESUHE 


OR 


aSIUOH. RESUME  . IF  TPF A IS  ERASED 


THIS  RESUMES  THE  SYSTEM'S  SUERRV  AS  TO  WHAT  TO  DO  WITH 
YOUR  PRlNTFTLf—  EXAMINE  • PRINT,  HOLD  OR  DROP  IT. 

IN  SUMMARY,  THE  PRINTFO.E  REMAINS  AVAILABLE  TO  THE  USER 
UNTIL  HE  riTHER  AFIN’S,  RERUNS  NASTERriLE.  OR  ENTERS  *0»  TO 
ORC»  THE  FILE  IN  RESPONSE  TO  THE  EXANINPt  PRINT,  HOLD,  OR 
DROP  SUERRT. 

USINA  THE  RENA  ININS  FUNCTIONS  OF  NASTERFILE  IS  SIMILAR 
TO  FUNCTION  *1. 

IN  FIOURE  2-1  A SAMPLE  TERMINAL  SESSION  APPEARS, 
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FIO URE  2-1.  TERMINAL  SESSION  USINO  FUNCTION  (l 


BNASTERFILE 

UNCLASSIFIED.82HASTERFTIE  .NOSTERFar  LEVEL -soil.  2.  TO -l  5U  62  E- 02  20  TO 
ENTER  0 IF  THIS  IS  TO  RE  * BITCH  (OR  STARTI  JOB  OR  1 FOR  1 DENI  NO  JOB. 

n 

WHICH  FUNCTION  00  YOU  NISH  ITVPE  T FOR  A LIST  IT 
>T 

CHOOSE  ONE  OF  THE  FOLLOVTNO  FUNCTIONS! 

1 CREATE  * NEW  RUNSTREAH  TO  EXECUTE  THE  RONCUS  HODEL. 

2 CREATE  A NEW  ABSOLUTE  8T  RE  CO  HP  IL  IN  0 ALL  PROORANS  IN  YOUR  RBO  FILE. 

S CREATE  A HEN  ABSOLUTE  BY  COW»aiNO  ONLY  THE  PROORANS  YOU  SPECIFY  NON. 

A PRINT  A HAP  OF  AN  ABSOLUTE  PROORAH. 

5 PRINT  A TABLE  OF  CONTENTS  I TOCI  FOR  ALL  OASP  FILES. 

6 OELETE  AN  ABSOLUTE  PROORAH  ANO  SOURCE  PROORANS  UNIOUE  TO  THAT  ELEMENT, 

WHICH  FUNCTION  00  YOU  WISH? 

>B 

B IS  A BAD  CHOICE  — TRY  1.2>3,R>S«  OR  Gt 
>1 

. WHAT  IS  THE  TITLE  OF  THIS  RUN  KGB  CHARACTERS  IT 

— EG 

>ILLUSTR  AT  IVE  EX  AN  PL  C OF  RUN  NINO  A PROGRAM 

WHAT  IS  THE  NANC  OF  YOUR  INTLC  FILE  I FILFNANE  .FLTNANE EVERSION  IT 
>S  21  NT LC.RUNSE  C/VASE 
BED  .0  S 21  NT  LC. RUN  SEC/ BASE 
IS  THIS  CORRECT  1Y  OR  NIT 
>Y 

CHOOSE  ONE  OF  THE  FOLLOWING  ABSOLUTE  ELEMENTS  TO  EXECUTE  BY  NUMBER! 

1 B2XBT . ABS/PROn  . PRODUCTION 

2 S2LEVEL-B.ABS  . LEVEL-9 

J (2UP0ATE.ABS  . LEVEL- 10 t WITH  PWPMS  DIVERSION  INTO  NAINT 

A S2UP0ATE.  ABSMOO  . TEST  MOOULT  FOR  VARIABLE  COMRAT 

TOUR  CHOICFT 

>1 

CHOOSE  A DATIN  DATA  FILE  BY  NUMBER. 

1 82X  AT  .OAT  IN-0  AT  A . ONE  RUN- -NO  OPTIMIZATION 

2 02MA.DATTN-OPT  . NNRNS  = 5- -PUNS  THE  OPTNIZATION 

J 8 2M  A.  0 A TIN- TEST  . TTFTN=20  — STOP  AFTER  20  OATS  FOR  TESTING  MODEL 

YOUR  CHOICET 
>J 

00  YOU  want  a ounp  after  execution  or  only  ON  ERROR  IV  OR  NIT 

>v 
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CHOOSE  1NT  or  THESE  OPTIONS: 

F DUNE  ONLY  ON  FNOOO 

r r IE LOOT 1 OLPHtNUNERIC  FORH1T  FOR  DUMP 
0 r OR  TR  ON  •••  FOR  NOT  FOR  DUNE 
E DUNE  RUN'S  EOT 

ENTER  OEtSon;“',w2SL:S“0"DS  """  EXECUTION 

>E 

SUSPEND  EO 

EMHINE,  PRINT.  HOLD,  OR  DROP?  >E 

nheret  >er 
sent  or  Hoi  : er 


T7TT 
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2. 2.2.1.  COMPILING  ALL  USER  PROORAHS 


IF  THE  USER  HAD  CHOSEN  FUNCTION  2.  ALL  RR9SRANS  IN  HIS 
RAD  FILE  WOULD  HAVE  REEN  RECONFILED  VIA  BFOR.  ACOB,  RASH. 
A?L/I.  ETC.  USE  OF  THIS  FUNCTION  IS  STRAIBHT  FORWARD. 
HASTERFILE  WILL  FIRST  COPT  ALL  SVNAOLTC  PROGRAMS  WHICH 
CREATED  THE  CURRENT  ABSOLUTE  PROGRAM  INTO  A LIBRARY  FILE. 

BEFORE  CONTINUINS  IT  M AV  BE  USEFUL  TO  READ  SECTION  1.1.2 
WHICH  GIVES  A DESCRIPTION  OF  HOW  HASTERFILE  HANDLES  USER 
FILES.  HASTERFILE *S  HANDLING  OF  USER  FILES  IS  TRANSPARENT 
TO  THE  USER.  NUT  THE  PROCESSOR  ATTEMPTS  TO  KEEP  TRACK  OF 
WHAT  ELEMENTS  HADE  UP  AN  ABSOLUTE  ELENENT. 

ANYHOW  THE  ONLY  INPUTS  REBUIRED  OF  THE  USER  ARE  THE  NAME 
OF  HIS  RAO  FILE  AND  A DESCRIPTION  OF  UP  TO  AS  CHARACTERS  OF 
THE  PROGRAM.  BE  SURE  TO  TYPE  A PERIOO  AFTER  THE  NAME  OF  THE 
RID  FILE.  ENTERING 


12  IB 

IS  ILLEGAL.  WHAT  IS  NEEDED  IS 
G2IG  . 

THE  OUTPUT  FROM  THE  LINE  PRINTER  WILL  BE  ACCOMPANIED  BY  A 
PUNCH  CARO  DECK  OF  TW  RUNSTREAH.  THE  RUNSTREAM  WHICH 
COMPILES  EACH  PROGRAM  TS  CREATED  BY  THE  FLIST  PROCESSOR  FROM 
THE  UNIVERSITY  OF  MARYLAND. 

AFTER  RF COMPILING  A NEW  ABSOLUTE  ELEMENT  WILL  BE  CREATED 
WITH  THE  COLLECTOR  {INVOKED  BY  BNAPI  • 

FIGURE  2 SNOWS  A TYPICAL  TERMINAL  SESSION  WHICH  WILL 
COMPILE  ALL  PROGRAMS  INTO  THE  RIO  FILE. 


2.2.2. A.  RECOMPILING  SELECTED  USER  PROGRAMS 


THIS  FUNCTION  RESULTS  IN  AN  ACTION  SIMILAR  TO  FUNCITON 
2.  INSTEAD  OF  ALL  PROGRAMS  IN  THE  RIO  FILE  BEING 
RECOMPILED.  ONLY  THOSE  INDIVIDUAL  PROGRAMS  CHANGED  SINCE  THE 
LAST  IFLIST  ARE  RECOMPILED. 

THE  NECESSARY  KEVINS  FOR  THIS  FUNCITON  ARE  THE  NAME  OF 
THE  RID  FILE.  PROGRAM  NAMES.  ANO  THE  NEW  ABSOLUTE  PROGRAM 
NAMES. 
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2. 2.2. 5.  THE  REMAINING  FUNCTIONS.'  COHTNO  SOON! 


THESE  ME  STILL  IN  THE  DEVELOPMENT  STAOE  A NO  ARE 
UNAVAILABLE  TO  THE  USER.  KEYING  IN  FUNCTIONS  4 OR  6 COULD 
BE  USED  TO  SIMPLE  PACK  THE  FILE.  CM00SIN6  FUNCITON  S 
RESULTS  IN  A BAURD  MODE  VIOLATION. 


2.2.2.B.  ABORT INB  NASTERFILE 


TO  TERMINATE  EXECUTION  OF  NASTTRFILE  AT  ANT  TINE  SIRPLT 
RESPOND 


BBI 

TO  ANT  BUEARE.  DO  NOT  BE  AFRAIO — ABSOLUTELY  NO  HARM  HILL 
RESULT. 

2. 2.2. 7.  LOCATION  OF  THE  RUN  STREAM  FILE 


THE  RUNSTREAH  OUTPUT  BE  NASTFRFILE  IS  PLACED  IN  A 
TEMP  OR  ART  FILE  WHOSE  NAME  IS 

RUNSTREAMOA. 

SAVINS  RUNSTREANS.  since  as  file  and  element  NAMES  CHAN6E 
ALL  RUNSTRFAMS  BECOME  OUTOATEO. 


2. 2. 2. A.  START  JOBS 


IF  A USER  WISHES  TO  CREATE  A START  JOB  INSTEAD  OF  A 
BATCH  JOB  MASTERFILF  WTLL  REBUEST  AN  BRUN  CARO! 


TEPE  AH  BRUN  CARO  CXACTLE  AS  IT  WILL  APPEAR  IN  TOUR 
TUNSTREAM  — OMIT  ONLY  THE  B SYMBOL  — AND  <T2  CHARACTERS! 


AN  EXAMPLE  RESPONSE  IS 

RUN./RPT  A102tIS37DTAlAA«UNCLASSIFTEO*S!5»LO 
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NOTF  THAT  THE  SYMBOL  IS  ONITTEDI  ACCIDENTLY  ENTERINC  AN 

• SYMBOL  RESULTS  IN 


I/O  CALLED  AT  LINE  XXX  IN  MAIN  PROGRAM 
ATTEMPT  TO  READ  PAST  END  OP  FILE 


WHERE  XXX  IS  SOHE  NUMBER.  THE  USER  MUST  NOW  TTPE 
ON  AS  TERFXLE  and  START  AO  AIN. 

DO  NOT  RERUEST  THAT  THE  JOB  BE  STARTED  IMMEDIATELY  THE 
RUNSTREAN  MUST  BE  COPIED  INTO  A PERMANENT  START  FILE.  SUCH 
AS  START'G2B  ATCH-OOB  VIA 

B CO  PY  . I RUN  ST  RE  AM  BG  G.  . S TA  RT  »B  2B  AT  CH  OB  . X XX 

WHERE  XXX  IS  AN  ELEMENT  NAME. 

THEN  TTPC 

aSTART  START*B2BXTCH-J0B.  XXX 
TO  START  THE  JOB. 

THE  NEXT  REVISION  OF  NASTERFILE  WILL  CONTAIN  FEATURES  TO 
CORRECT  THESE  LOOSE  EOOES. 


2, 7.2.9.  EMPLOYING  OTHER  NASTERFILE  FUNCTIONS 


2.2.1.  ASUSPEND/ ARESUNE 


AT  THE  END  OF  MASTER  FI  l£  EXECUTION.  IF  THE  RUNSTREAN  WAS 
DYNAMIC  ALLY  BADO'O.  THE  SUSPEND/RESUME  PROCESSCR  WILL  OUERYS 

EXAMINE.  HOLD.  PRINT.  OR  OROPT 

TYPING  THE  LETTER  E WILL  PUT  THE  USER  IN  THE  EOIT  MODE  TO 
EXAMINE  THE  CONTENTS  OF  THE  SYMBIONT  FILE.  THUS  YOUR  CAN 
SEE  IE  YOUR  PROGRAM  WORXEO  BE  FOR  SENDING  IT  TO  THE  LINE 
PRINTER. 

SINCE  THE  SUSPEND/RESUME  IS  A UNIVERSITY  OF  MARYLAND 
PROCESSOR.  YOU  WILL  BE  IN  THE  EOIT  NODE  USING  THE  UNIVERSITY 
OF  MARYLAND'S  EDITOR.  WHICH  IS  SOMEWHAT  EOUlVALEMT  TO  THE 
UNIVAC  EDITOR  AT  CAA.  CONSEQUENTLY  SOME  COMMANDS  WILL  NOT 
WORN. 
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AFTER  EDITINS  THE  FILE  TYPE 

EXIT 

AND  THE  EARLIER  QUERY  WILL  REAPPEAR. 

NEXT#  IF  THE  RESPONSE  IS  THE  LETTER  P.  THF  OUPUT  FILE 
WILL  RE  SENT  TO  THE  LINE  PRINTER.  THE  NEXT  QUERY  IS 


WHERE?  CHOOSE  ONE  OF  THE  SITES  LISTED  EARLIER  IPR, 
DC  TOOL  * ETC.  I. 

FINALLY  IF  YOU  WANT  THE  SYH  FILE  DESTROYED#  TYPE  THE 
LETTER  0 ANO  THE  FILE  WILL  BE  DROPPED. 
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I.  PROBRANNER'S  GUIDE 


MASTERFILE  IS  A F ORTR  IN  PROGRAM  WHICH  IMPLEMENTS  THE  SI* 
FUNCTIONS  DESCRIBED  BY  OPTIONS  D.F.N.R.I,  BHD  X IN  T ABLF 
1-3. 


3.1.  MASTERFILE  INPUT  BHD  OUTPUT  FILES 


3.1.1.  INPUTS  TO  nOSTERFJLE 


SINCE  HBSTERPILE  IS  B CONVERSATIONAL  PRO  OR  AN  HOST  INPUTS 
BRE  SOLICITED  FRQH  THE  USER  VIB  READ  STBTEHENTS. 

THE  PRIHBRT  OUTPUT  OF  HBSTEREILE  IS  B RUN  ST RE BH  OF  EXEC  g 
CONTROL  STBTENEHTS  THBT  IS  BBOO'O  WHEN  NASTERFILF 
TERHINATES.  CONSEQUENTLY  SONE  OF  THE  CONTROL  STATEMENTS 
INSERTEO  IN  THE  RUNSTREAN  BRE  COPIED  FRON  CANNED  JCL  IN  FILE 
02 RUNS. 

ANOTHER  INPUT  TO  NBSTERFILC  IS  02M0STERDBT  A.  WHICH 
CONTAINS  THE  NBHES  OF  ILL  BBSP  IV  ABSOLUTE  PROGRAMS.  ALL 
OBTIN  SUBPROSRBN  INPUT  OECNSt  AND  A BO  CHARACTER  DESCRIPTION 
OF  EACH  ABSOLUTE  AND  OATIN-OATA  ELEMENT. 


3.2.  OUTPUTS  FROM  MASTER  FILE 


THE  OUTPUT'  RUNSTREAM  IS  PUT  IN  TEMPORARY  FILE 
RUNSTREAMBBO.  ANOTHER  TEMPORARY  JCL  FILE  IS  ALSO  CREATED. 
JCLBBB.  THIS  SECOND  FILE  BEO'ITS  RUNSTREAMB  SB . TO  REMOVE 
SPACES  IN  EACH  CONTROL  STATEMENT.  FOR  EXAMPLE  . IN  THE 
STATEMENT 


BEO.R  InTLC-ELT. 

MUST  BE  CHANBEO  TO 

BEO.R  INTLC-ELT.1S. 


• IS. 
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3.1.  RUN  ST  RE  AH  INPUTS  ANO  OUTPUT' 


THE  RUNSTRE AN  RUNSTRC AMttt.  « WHETHER  IT  CONPILCS 

USER  WRITTEN  OASP  IV  SUBPROORAN  OR  EXECUTES  THE  ABSOLUTE 
ELEMENT.  HANES  USE  OF  FOUR  FILES  FOR  INPUT  ANO  OUTPUT. 


1.  THE  USER  SPECIFIES  HIS  RIO  FILE  WHICH 
CONTAINS  source  prosrans  HE  HAS  WRITTEN. 


I.  THESE  SYMBOLIC  PROGRAMS  ARC  COPIED  TO  FILE 
■ 2UPDATC.  t WHICH  CONTAINS  THE  LATEST  VERSION  OF 
EACH  SYMBOLIC  USER  WRITTEN  SUBPROGRAM.  ALSO 

THE  RELOCATABLE  ELEMENTS  CREATED  BY  OFOR 
STATEMENTS  ARC  ALSO  INSERTED  IN  B2  UPDATE. 
FINALLY.  THE  ABSOLUTE  ELEMCNT  CREATED  FROM  THESE 
PROGRAMS  IS  ALSO  STORED  IN  THIS  FILE. 


3.  BEFORE  (2  1 IS  PERFORHCD.SVHBOLIC  ELEMENTS 
WITH  SAME  NAME  IN  12  UPDATE.  ANO  THE  USER  RIO 
FILE  ARE  aCOPV'O  INTO  I2LIBRARV.  THEN  THE 
RELOCATABLE  ELEMENTS  FROM  HASTCRFILE’S  LAST  USE 
ARC  ACRASC*  D.  12  LIBRARY  CONTAINS  OLO  SOURCE  ANO 
ABSOLUTE  PROGRAMS.  THUS  ALL  PROGRAMS  WHICH 

MAKE  UP  A particular  ABSOLUTE  ARC  SAVED. 


A.  I2IASP  CONTAINS  SOURCE  ANO  RELOCATABLE 
GASP  IV  SUBPROGRAMS.  THIS  FILE  IS  ONLY 

REFERENCED  ON  A LIB  COLLECTOR  DIRECTIVE 

FOLLOWING  THE  IMAP  STATEMENT  IN  FILE 
RUNSTRE  AHItt. 


1 2RUNS.  .12  GASP..  ANO.  PROBABLY.  THE  USER  RID  FILE  RESIDE 
ON  REMOVABLE  DISK  PACK  36.  THE  REMAINING  FILES  ARC 

CATALOGUED  OH  PACKS  BRAOA.  toUOC.  AND  IMOO.  WHICH  ARE  RARELY 
DISMOUNTED  ON  WEEKDAYS.  ONE  NAY  DISCERN  IF  THESE  FOUR  PACKS 
ARC  MOUNTED  VIA 


AHSCON.X  . CHECK  FOR  AMD’S 

AMSCON. V . CHECK  FOR  PACKS! 
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THE  FOLLOVINO  SECTIONS  3IVE  * DESCRIPTION  AND 
LISTINGS  OF  HA JON  PASTER  PILE  SOURCE  PROQRANS. 


SOURCE 


J.R.  SOURCE  PROBRARS 


3.  A.  I.  PAIN  PROG  RAM 


INPLICIT  INTEGER  IA  -Z  i 

DINENSI  ON  R SOIRI. USEISI. RUN  1121  .H08I12I  .START  IR  I.  AODI  *>  .FREEtSI  • 
♦PROCROI 121 

OATA  AS6/  *G  ASG,  T*  »*  RUNST  •»  *REANBG*  . • G.  . •/ 

OAT  A USE  F*GUSE  *»  *10.  , * .•RUHSTR  •«  »E  AHBSG*  .*  . . •/ 

OATA  START  /* GSTART  •«  • G2RG*  »•  *,  • . •/ 

OATA  ADD  /*  GAOO *L  *•  * RUNST*  .*  RE  ANAS  *.  »G  . . •/ 

OATA  FREE /■•  BF  REE  *.  *RUNSTR*  .*  EAHGGG  *.  *.  . •/ 

NASTERFILE  PAIN  PROGRAN 

outline: 

I.  PRINT  GREETING 

II.  ASG  RUNSTREAN  FILE  FROM  ER  TINEG.  PRTNT  FUNCTION  CHCTCES 

III.  ADO  GRUN  AND  AHDB  CAROS 

IV.  CALL  APPROPRIATE  FUNCTION  ROUTINE 

V.  AFTER  RETURN.  PACK  FILES  AND  FINISH  RUNSTREAN 

variable  definitions: 

TINE  IS  THE  TINE  NASTERFILE  SIONEO  ON. 

• •«••••  ♦ ••♦«••*••  STEP  I.  ...... 

READ  IS. ISO  I PROCRO 

CALL  OPTIVALUEI 

call  ERTRAN  IS.DATE.TINE) 

PRINT  PROCESSOR  SIGN  ON  INAGE 
PRINT  SO.  TINE. DATE 

SO  FORNAT  I*  UNCLASS  IF  IED*S2  NASTERFILE  »N  ASTERF  ILF  LEVEL  -SP1 T.  2.  79  -• 
♦ .AG,*-*  .AC. /I 


PRINT  120 

120  FORNAT  «•  ENTER  0 IF  THIS  IS  TO  BE  A BATCH  IOR  STARTI  JOR  OP  1*  , 
♦ • FOR  A OCNANO  JOB.  *| 

READ  IS.  1 35  I R 
1 CONTINUE 
110  FORNAT  I10ZSI 

II.M...M.UM.MMMM..MM....M......MM 
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C ASK  THE  USER  IF  HE  HANTS  A LIST  OF  THE  FUNCTIONS* 

C 

PRINT  lit 

U1  FORNAT  I*  NOTCH  FUNCTION  00  YOU  UISH  ITYPE  T FOR  A LIST)?*! 
READ  IS  .135  I CHOICE 
IF  ICHOICB.NC.TI  60 TO  *7 
PRINT  IIO 

UO  FORNAT  I/I*  CHOOSE  ONE  OF  1«  FOLLOHIN6  FUNCTIONS:*,/. 

«•  I CREATE  A NEW  RUNSTREAN  TO  EXECUTE  THE  POHCUS  MODEL.* 

♦ 2 CREATE  A NEH  ABSOLUTE  BY  RECONPTLINO  ALL  PROORAMS* 

♦ .*  IN  YOUR  RIO  FILE.*,/,*  3 CREATE  A NEH  ABSOLUTE* 

♦ • BY  CONPHINO  ONLY  THE  PROGRANS  YOU  SPECIF?  NON.' 

♦ ./*•  * PRINT  A NAP  OF  AN  ABSOLUTE  PR06RAN.*  ./,*  5 PRINT* 

♦ • A TABLE  OF  CONTENTS  ITOC|  FOR  ALL  OA$P  FILES.  *./.*  ( • 

♦ •DELETE  AN  ABSOLUTE  PROORAN  ANO  SOURCE  PROORANS  UNIBUE  TO* 

♦ • THAT  FLENENT.  ••//,*  NOTCH  FUNCTION  00  TOU  HISHT'I 
A READ  es.issi  CHOICE 

ITS  FORNAT  (in  I 

AT  IF  f CHOICE  .LT.  I.  OR.  CHOICE.BT.tl  60T0  AA 
SOTO  AS 

AA  PRINT  AS, CHCICE 

AS  FORNAT  11V, It.*  IS  A BAO  CHOICE  — TRY  1,2.1. A. 5,  OR  SI  *1 
OOTO  A 
C SET  OATA 

C ASS  FILE  FOR  RUNSTREAN 
AS  CALL  ERTRAN  16  ,ASO  I 
C USE  FILE  AS  FORTRAN  UNIT  IQ 
CALL  ERTRAN  IS.USEI 
C 

C ♦♦..♦••  A*  ......  ..STEP  

e 

C A RUN  CARO 

IF  IRI  1.2,3 

2 PRINT  1 AO 

1A0  FORNAT  I*  TYPE  AN  SPUN  CARD  EXACTLY  AS  IT  HILL  APPEAR  IN  YOUR* 

♦ ,/.  • RUNSTREAN — OHIT  ONLY  THE  0 SYMBOL — ANO  <72  CHARACTERS!  • 

♦ ,/.T2X»*<  — 72*1 

READ  IS.tSOI  I RUN  II  1.1=1,12  I 
ISO  FORNAT  112X61 

HRITE  110.1511  IRUN  II  I,  1=1,  12 1 
151  FORNAT  I*  I*  ,12A6I 
OOTO  11 
C 

C INSERT  SBRKPT  IN  THIS  DEMAND  JOB 

3 WRITE  110,155  1 

155  FORNAT  l*BSSUON.SUSrENO*,/,  *OLIB.TINE*l 

C 

C SHD6  CARD 
31  PRINT  160 

160  FORNAT  I*  WHAT  IS  THE  TITLE  OF  THIS  RUN  I <6  6 CH  AR  ACTERS  !♦*,  / 
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«l  M 

HD8I1I  - *8MDB  • 

READ  IS  tl  50  I IH00IKI.  11:2.121 
WRITE  1 10  .ISO  I IHD0IM.IUl.12l 
C 

C .................STEF  IT.  

GOTO  IS.S.T.B.S.10I  • CHOICE 
5 CALL  SURRUN 

SOTO  U 

S CALL  SUBFLI 

SOTO  11 

7 CALL  SUBREC 
SOTO  11 

B CALL  SUBNAF 
SOTO  11 

9 CALL  SUSFRT 
SOTO  11 

10  CALL  SUBOCL 
C 

C .........  ...... ..STEF  

U IT  ICH0ICE.E8.2.0R. CH0ICE.E0.il  CALL  SUBPAK 


R=0  II  BATCH,  in  IS  OCHANO 
IFIRI  12.12.11 
12  PRINT  ISO 

180  FORM!  I*  t>0  TOU  WANT  TO  START  THIS  BATCH  JOB  IHNCOIATELYT* 
..•  IT  OR  N I*  I 
READ  I*. ISO  I H 

CLOSE  RUHSTREAH  FILE  AND  BED  THE  SPACES  OUT 
CALL  SUCEDICHOICF.RI 


IF  IN.EO.  *N*I  SOTO  IS 
PRINT  IBS 

IB 5 FORHAT  I*  THIS  FACILITT  IS  NOT  TET  ACTIVE.  JUST  COPT  YOUR* 

♦ • RUNSTREAH  INTO*./.*  A START* — FILE.*! 

IS  PRINT  1 TO 
170  FORNAT  I*  READY  *1 
SOTO  It 

INSERT  BSRWPT  FOR  DEN  AND  RUN 
13  WRITE  1 10  .ISO  I 

ISO  FORNAT  I*  BL  IR  .TINE*  ./  .*  At  8UCN  .RESUNE*  I 

CALL  SUBED  TO  CREATE  1 BA 00  THE  JCL  TO  EDIT  THE  SPACES  OUT  OF  THE 
RUHSTREAH.  ALSO  CLOSE  THE  RUNSTREAH  FILE. 

CALL  SUBEOI  CHOICE  .R  I 


..  . 
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c 

C AADD  THT  OUTPUT  RUNSTRCAH 

c 

16  CALI  ERTR  AM  I 6 » 20  HB  AO  D XL*««.  . I 

C 

STOP 

EMO 


3.A.2.  SUBROUTINES 


3. A. 2.1.  SUBRUN 

subroutine  subrun 

OUTLINE 

I.  CREATE  THE  FOLLOWINO.  nodel  runstrean 


variable  dicttonarv 

N ANT  I It  K I < NAN  E OF  OATIN-OATA  files 

I IS  THE  USER  CHOSE  OF  FILES 

ONAHEEC.KE  < NAHE  OF  INTL C-DATA  FILE 

C IS  THE  USER  CHOICE 

INTLCIKI  — NAHE  OF  INTLC-OATA  FILE 


INPLICIT  IN TEBER  IA  -2  t 

DIMENSION  INTLC  IT  It  NANEEZ0.11E.  DNANEE20.11I 
DIMENSION  NOE  20 » 

C 

WRITE  E 10  .100  I 

100  FORMAT  E'BOELETE.C  S20PTIHIXAT.  *./.  *S DELETE. C SXOIABNOSTTC.  *,  /. 
.'SOELETf . C B2  SHORT- 01  AS  BA  SO  .T  15.  *1 

C 

C BET  INTLC  FILE  NAME 
1 PRINT  110 

110  FORMAT  E*  WHAT  IS  THF  NAME  OF  TOUR  INTLC  FILE  EFILENANE .FIT  * 

♦ •NANE/VERSIONET'E 
READ  ES.120I  INTLC 
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UO  FORMAT  11016) 

c 

C PUT  ACO  IN  RUNS TREAN  — CHECK  FIRST  KITH  THE  USER 
WRITE  16.1301  « INTLCI II  .1=1.71 
ITO  FORNAT  «•  IE0.0  •*!«./.•  IS  THIS  CORRECT  IT  OR  NITM 
READ  15  .1 20  I ■ 

IF  IO.EO.  'N'l  OOTC  1 

WRITE  (IQtlROI  IINTLCUI.U1.7I 

1*0  FORNAT  1*010.0  *.  7A 6.  *.  15  .*./.*  EXIT  •./.**  ASG. UP  I20IA8N0STIC.  • 

♦ • .F///JOOO*  t/t'OASO  .UP  62  SHOR  T*  01 A6  • . F/  //  3000  * . /. 

♦ • AA  SO  .UP  B20PTIHIZAT.  •«/.  *AUSC  IT  ..  A20P  TINIZAT.  *. /. 

♦•AUSE  1*.  .92SHORT-OIAO.  *,/.  *AUSE  13 •<  1201  AGNOSTIC . • I 

e 

C CHOOSE  ABSOLUTE  ELEHENT  TO  EXECUTE 
« PRINT  ISO 

ISO  FORNAT  I*  CHOOSE  ONE  OF  THE  FOLLOWING  ABSOLUTE  ELEPENTS  TO* 

«•  EXECUTE  Bt  NUMBER:1  >/ | 

GET  AND  WRITE  ABSOLUTE  HANES  FROM  S2MASTER0  AT  A 

CALL  CRTRAN  I B . 30 HA  ASO.  A A2H»  STEROATA  . I 

CALL  CRTRAN  I B.  30  HA  USE  JO  ..  B2HASTER0ATA  . I 

READ  1 19  .1  BO  I STOP 
00  S 1=1. STOP 

READ  11 9. 16  01  NOIIITIDNAME  II.KI.  K=l.lll 
PRINT  160  .NOIZI.IONIMEII.MI.K  =1.111 

S CONTINUE 

PRINT  170 
READ  15.1751  C 

PUT  A AGO  OATIN-OATA  IN  RUNSTREAN 
PRINT  200 

200  FORMAT  I'  CHOOSE  A DATIN  DATA  FILE  BT  NUMBER. •« /I 

GET  NAMES  FROM  A2HASTER DATA 
READ  119.1601  STOP 
00  2 1=1.  STOP 

READ  119.1601  N0(II»INAMCII.K|.K=1.11I 
UO  FORMAT  I1X.I2.2X.11A6  I 

PRINT  160.  NO  III.  INAMCI  I.K|  *K  =1.111 
2 CONTINUE 
PRINT  170 

170  FORMAT!  • TOUR  CHOICE?  •» 

RTA  0 15.175  1 I 
ITS  FORMAT  1611 1 

PUT  APRT.S  IN  RUHSTREAH 

WRITE  1 10 .1  GO  I INANEII.K|.K=1.10I.IINTLC|KIH(:1.TI 
1B0  FORNAT  I'APRT.S  • >1016.  /,  *APRT.S  '.10 A*  I 

PUT  AXGT  IN  RUNSTREAN 
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WRITE  ( 10  .1  90  1 I0WR ME  IC.KI.tCl.il* 

190  FORMAT  l*»XQT  *»11A6I 

WRITE  (10.2701  (NANCd.KI  ,K=1  ,111 
220  FORMAT  I*  RADO  ,p  • .11**1 

C 

C ADO  RPNO  OPTION 
PRINT  230 

230  FORMAT  (/(•  00  TOO  WANT  A DUMP  AFTER  EXECUTION  OR  ONLY  ON* 

♦ • ERROR  IT  OR  N»?»» 

READ  15.1201  R 

IF  (R  ,E«.  *N*I  SOTO  7 
PRINT  290 

29  0 FORMAT  I/.’  CHOOSE  Ml  OF  THESE  OPTIONS  I*  ./ ,10X  ,*E  DUMP  ONLY  ON* 

♦ • ERROR*. /.10X.*F  FIELOATA  ALPHANUMERIC  FORMAT  FOR  DUMP*,/, 
,10X,*S  FORTRAN  * B*  FORMAT  FOR  DUMP  *,  /,  10  X,  'P  DUMP  RUM**S  PCT*  . 
*/,10X,*C  DUMP  ONLY  WORDS  WHICH  HAVE  CHAN  RED  DURXNO  EXECUTION*, 

♦ /,*  ENTER  OPTIONS,  SUCH  AS*,20X, 

♦ *EF8*  ,20X/*rTTT*» 

READ  (5,120  1 OPT 
WRITE  ( 10  *2 SO  I OPT 

250  FORMAT  (*»PHO,DO*  ,ASI 
C 

7 RETURN 
CNO 


3. 9. 2. 2.  SUBFLI 


SUBROUTINE  SUBFLI 

outline: 

I.  COPY  ALL  PROGRAMS  FROM  B2UP0ATE  TO  1 21 IBRARY • 

II.  COMPILE  ALL  PROGRAMS  FROM  520 ASP  INTO  S2UP0ATE. 

III.  HAP  AN  ABSOLUTE  ELEMENT. 

DIMENSION  ABSNAHdt  ,NEWA8S(  11  l,FN(2) 

IMPLICIT  IMTEBER  U-Il 

C 

C BLANK  ARRAYS  OF  ALPHANUHBERIC  OATA 

00  1 1=1.11 

1 NEWABSdl  = • • 

C 

C ...............  ..STEP  I ....................  .. 

C OCT  THE  ABSOLUTE  PROGRAM  NAME. 

CALL  SUBNANd.ABSNAMI 
C WRITE  TO  RUNSTREAM 

WRITE  (10,1001  lABSNANdl  ,in.2l 

100  FORMAT  (*BCOPY,EV  S 2UP0  ATE.  .S2LI9RA  RY  ./  ••  2A6,/,  *BASC,  T SCRATCH*. 
♦ /.*  BCOPY.A  B2UP0ATE  ..SCRATCH.*, /,'BERS  02UPOATE  .*  , / , 

.* BCOPV,  A SCRATCH.  .5  2UPOATE.  *1 

C 
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C UPDATE  THE  NAP 

CALL  UPHAPI  AASNAN  I 

C 

C •••••••  •*•••* ••••STEP  XI.  **•*••♦••♦.*••  •••••••»•»••••»•••  •*•••»•»..  • 

PRINT  ins 

105  FORMAT  I*  INTER  THE  R * D FILE  WHXCN  CONTAINS  TCUR  SYMBOLIC  PROG* 

♦ • RAMS  «/  ••  UARNINO:  IE  SURE  TO  TTPC  t PERIOD  AFTFR  THF  TILE* 

♦ • NAME  »•  I 

READ  IS. 1051  FNtll.FNIZI 
IDS  FORMAT  110*61 

WRITE  (10.1101  IFNI  II  . I =1  .2  I.FNIl  t.FNIZ  I.  FN  II  I.FNI2  I 
UO  FORMAT  (•SHOO  » .PRO  C»  ••»/»•  BP  DP  * ILF  • ,2  At  . • PROC  •,/. 

.•RADO  ' .2  BE  .' PROG  •• /. 

♦ •AFLTST  .GXVLTU  ••  2A  t.  ••  MUPOATE  ..  02UP0ATE  .•  I 

C 

C ..STEP  III 

C REOUCST  THE  NEW  ABSOLUTE  PROORAN  NAME 
PRINT  120 

120  FORMAT  (•  ENTER  ELEMENT  NANT  FOR  YOUR  NEW  ABSOLUTE  PROORAN.*. 

♦/.•  FOR  EXAMPLE  •»//*•  ABS1*.//,*  DO  NOT  USE  A VERSION*. 

.'NAME  (•  I 

C PUT  NEW  ABSOLUTE  PROORAN  NAME 
CALL  SUBNRH  12 .ABSNANI 
READ  IS.lOtl  NENABSUI.ABSNAMIZI 
NEWABSIII  A ' « • 

PRINT  1*S 

l«t  FORMAT  I*  ENTER  UN  TO  *1  CHARACTERS  OF  DESCRIPTION  OF  THE  PROGRAM 

♦ .*./.  MAX.  •< AO*  I 

RCAO  (5. lOt)  (NEHAOSI  XI  • I=*.UI 
110  FORMAT  IZAfl 

C WRITE  AN  BNAP  IN  RUNSTREAH  TO  CREATE  AN  ABSOLUTE  ELEMENT 
WRITE  1 10.1  AO  I (NEWABSIII. in  .101 
1A0  FORMAT  (•BPRCP  *2  BA  SP  .*./,*  BPREP  S2UPDA  TE  . • ./ . 

♦ •AMAP.IS  .B2LIBRARY  ••  .lOAt.  /.*IN  A2UP0  ATE.  *./. 

♦ •NOT  TPFtt*  ./.'LIB  A?f  A SP  .'  ./  .*ENO*  I 
C 

RETURN 

END 


3.  A.  2.1.  SUBREC 


SUBROUTINE  SUBREC 

purpose:  recompile  selected  user  programs  from  user  specified  file  AND 

CREATE  A NEW  ABSOLUTE  ELEMENT. 

outline: 

I. SOLICIT  USER  FOR  R t D FILENAME.  NEW  PROGRAM  NAMES.  AND  ABSOLUTE 
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PROGRAM  NAMES  KITH  DOUNENTATTON. 

II.  SET  OLD  ABSOLUTE  PROGRAM  RARE. 

III.  WRITE  INTO  RUNSTREAR: 

SHOO 

BCOPTtS  B2UPOATE  — .S2LIBRARV  — /ABSNARC 
BFOR.S  RBO  FILE « B2UPDATC,  B2UPOATE 
IT.  RAP  NEW  CLEMENT : 

AM  AP  tS  .A2UPDATE.NEWABS 
IN  NEW  PR  OB 


LIB  B2GAS?  • 
BE  OF 


OIMENION  ARRAYS 

IMPLICIT  INTEGER  IA  -II 

DIMENSION  FN12I  BNAME  OF  USER  RBO  FILE 

DIMENSION  NAMES  12 01  BRAHES  OF  NEW  PROGRAMS 

DIMENSION  ABSNAMIUI  BABSOLUTE  ELEMENT  NAME  TO  BE  CREATE 
DESCRIPTION 

DINENSION  OLOABSI 21  BNAME  OF  LATEST  ASS  CLEMENT 
DOUBLE  PRECISION  NAMES 

e 

•••••••••STEP  • •»»•♦••••••*•••♦♦.«•♦»•••*• 

PRINT  100 

100  FORMAT  I*  ENTER  THE  R B D FILE  WHICH  CONTAINS  YOUR  SYMBOLIC  PROS* 

♦ •RAMS.*,/.*  WARNING;  BE  SURF  TO  TYPE  A PERIOD  AFTER  THE  FILE* 

♦ •NAME  f*  » 

READ  IS  ,1  ID  I IFNI  II, I =1,21 
110  FORMAT  I1IACI 
PRINT  120 

120  FORMAT  I*  ENTER  THE  ELEMNT  NAMES  11-12  CHARACTERS!  THAT  YOU  WISH* 

♦ • TO  COMPILE.  *,/,  • TYPE  ONE  NAME  ON  EACH  LINE  FOLLOWED  BY  • 

♦ ••TRANSMIT.*  TYPE  •ACOF*  AFTER  THE*,/,  • LAST  ELEMENT  NAME.*! 

NNAMES  = 0 

DO  1 1=1,20 

READ  I5.11S  ,END=»  ,ERR=A  I NAHFSIIl 
IIS  FORMAT  IGA12I 

NNAHCS=NNAMESU 
1 CONTINUE 

A PRINT  130 

130  FORMAT  I*  ENTER  ELEMENT  NAME  FOR  YOUR  NEW  ARSOLUTE  PROOPAN.*, 

♦ /.*  FOR  EWANPLE  *,//,*  ABS1* .//,  * DO  NOT  USE  A VERSION*, 

♦ •NAME!*  ) 

READ  IS. 1101  ABSNAM  II  |,  ABSNAMI2! 

ABSNAMI 31  =1  * . * 

PRINT  LAO 

1A0  FORMAT  I*  ENTER  UP  TO  Al  CHARACTERS  OF  DESCRIPTION  OF  THE  PROGRAM 
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v — «n*  i 

REID  15.1101  IERSNEHIII.  l:«,ui 
C 


C ............STEP  IT,... 

CELL  SUBNEN  tl.OLDERSI 
CELL  SUBNER  I2.E9SNENI 

e 

......... 

00  2 I=1.NNENES 

WRITE  1 10  >1 50  I NAME  SI  X|  .N  AMES  IX  I.  NAMES!  II  .OLOABSI  II  .0LDEBSI2I  i 


♦ ENI II  .FNI  21  .MERES  IT  I.NANESI  II  tHERESIX  I 

ISO  FORHET  I * EM  00  •••••  ».E12.*  • »•»»•,/,  »BC0PY .S  B2UP0ETE.  •«  E12. 

♦ « .S2LIBRE RY  ••  .E12.»  /*  .2  EE  ./ ,«  (FOR  .S  •.2RE.E12»«  .(2UP0ETE.  *,*12. 
«•  .B2UP0ETI.  •«  El  21 

2 CONTINUE 


• ....... STEP  »••••*  ............ 

WRITE  IlDilUl  IEBSNERIII.In.9l 
1E0  FORNET  I • OP  REP  026ESP  .*./.*  OPREP  »2UP0ETC.«  ,/, 

.••HEP. IS  .02UP0ETE.  *.  9ECI 
00  3 m.NNARES 
WRITE  1 10  .1  TO  I HERE  SI  II 
IT  0 FORNET  PIN  02UPD  ETC.  ••  E12I 
I CONTINUE 

WRITE  110.1(01 

UO  FORNET  I’lR  02UPOETE.  REIN  *.  21 /. ’LIB  B2UP0ETE  ..  B2BESP  .•  I) 

FIRM  II  It  fl  II  I 

RETURN 

ENO 


.1.1.  SUBEDICHOICE.RI 


' SUBROUTINE  SUBEDI  CHOICE  .NOOEI 
IMPLICIT  XNTEBER  IE-21 

OUTLINE 

I.  CLOSE  RUNSTREEN  FILE  10  SO  THET  IT  NET  RE  USED  ES  E TEMPORARY 
JCL  FILE. 

TI.  (ESS  E TEMPORARY  JCL  FILE. 

III.  WRITE  (ED  RUNSTTREEN  INTO  JCL  FILE. 

XV.  CSFB  (EDO  JCL  FILE. 

IF  NOOE  IS  1.  JOB  IS  DENENO  NOOErO  IS  BATCH 
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c 

C • •*•••••••••••»•*••••••  .S  TEP  I.  •••••*••••••»••••*••»•  •• 

C 

ENDFILE  10 
REWIND  10 

C 

C • ••••••••••••••••••••••.STEP  XX  .••••••»*••* •**•»•••**••• 

C 

CALL  ERTRAN  (S.JOHIASB.T  JCLASA,  , I 

CALL  ERTRAN  IttlOHSUSE  U.i^LUI.  . I 

CALL  ERTRAN  IS.JOHtASB.T  KSYNBIONT.  • I 

C 

C ••.•STEP  III... •••••••••*•••••••••.»• 

C 

WRITE  112.1001 

100  FORNAT  I • iBRKPT  PRINTB/MSYHBIONT  • t 

• /•  ••CO  ili  RUNSTRE  •«»*».  • ./.  ••ADD  >2  MATTER  FILE  .N  ACROS*  •/  • 

♦ •«*•  */  • • EX  IT  • I 

UO  FORNAT  I'MRKPT  PRINTS*  I 

• ••••• •••••••••••••STEP  IV .•••••••••• ••••••••• 

IF  NODE  IS  BATCH  (SOI  DO  NOT  »TDO  RUNSTRE  AN 

IF  INOOC.CS.OI  60T0  I 

C 

TF  I CHOICE.  TO  .1  .OR.  CHOICE  .ER.  51  OOTO  1 
120  FORMAT  (••AOQtL  RUN STRE AMtA*.  • I 

C 

C ASK  USER  IF  HE  WANTS  TO  *AOD  RUNSTRCAM. 

C 

PRINT  220 

220  FORMAT!  • DO  YOU  WANT  TO  *AO0  THE  RUNS TRFAM  IMMEDIATELY  IT  OR  Nl  7*  I 
RCAO  IS  .1 50  I A 
ISO  FORNAT  t All 
C 

IF  I A .E  B.  *Y  *!  OOTO  1 
PRINT  1J0 

1J0  FORMAT  I*  READY*! 

1 WRITE  112.110! 

OOTO  2 

1 WRITE  112.120! 

2 CNOFILE  12 
REWIND  12 
RCTURN 
END 
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3.S.  SAMPLE  OATIN  DATA  DECK 


THE  F0L0NIN8  IS  A SAMPLE  INPUT  DECK  TO  TNE  BASP  IV  SUBROUTINE  OATIN. 


•6ENRAL 

NNAMCI1  » = EHSSIPL  .SHOPTINI  if  HZ  ATION  t 

NNPRJ=B001.  NNRNS=ODl  • LL  SUPC  Al  =2  .2  . LLSUPf  91  =2.2.  LLSUPC 12  I:  2, 0. 1 
SEND 
ASTATIS 

NNCLT=12.  NNPLT=9 
(END 
•LIMITS 

NNSTRU.  NNTR  V=  1000  • NNATR=7.  NNPILUl  NNSET=10000 
•END 
•COLCT 


I Si, 
•END 
•COLCT 
1=2. 
•END 
•COLCT 
I=J. 
•END 
•COLCT 
1=9. 
•END 
•COLCT 
I=S. 
•FND 
•COLCT 
I=Ct 
•END 
•COLCT 
1=7. 
•END 
•COLCT 
T=l. 
•END 
•COLCT 
1=9. 
•END 
•COLCT 
1=10. 
•END 
•COLCT 
1 = 11. 
•END 


LLABCIl.il  = EHPRMNEN.  6HT  LOSS 
LLABCIZ.1I  = SHTHFA  TR . EH  STOCK 
LLABCI3.lt  = EH  MAR  RE.  EH  SERVES 
LLABCI9 .1  I = EHAUTH  S.  BHT»ENOT 
LLABCIS.1I  = EH  CONN  IT  • EHTEO  UN 
LLABCIfi.il  = EMMA  IN  T . EHRETURN 
LLABCI7.il  = EHUNECON . EHON  FIK 

LLABCIE.1I  = EH  ON  ST  AT  » SHTON  UN 
LLABCI9.il  = EHPOHCUS.  EH  UNITS 
LLABCI1L.1I  = S MC ONUS  . E HUNT TS 
LLABCIll.il  = SHUNIT  A.  fi HRRIVFO 
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«col:t 

1=12.  LLBBCI12.il  = SHCOHNIT.  6 NT  CO  UN 
BEND 
•PLOT 


1=1  • LllBPIU.il  = INTIME.  LL  BBPI  11 .2  I = 1H  • T:t*PI1I=2.  MVBPIlUJ, 
LLPLT=2 
DTPLTI  It  =0  .5 
BEND 
BPLTVBR 

IJ=1.  LLSTMI 11  =1HP  • LL  BBPI  1. 11  =SHPRMNEN»  6 NT  LOSS. 

LLPLOI  11=1.  LLPHXI II  =2  . PPHII1I=1SB. 

(END 

BPLTVBR 

IJ=2.  LLSTMC  21  =1HT  > LL  BBPI  2.  II  =SHTHEBTR.  EH  STOCK. 

LLPLOI  21  =1  • LLPHII  21  =2  * PPHTI2I=15B. 

BE  NO 

bpltvbr 

T J=  3.  LLSTMI 3T  =1HR  » U BBPI  3.  II  35HNBP  RE.  EHSCRVES. 

LLPLOI  31=1.  LLPHXI3I=2.  PPHII3I=15». 

BEND 

BPLTVBR 

I J=  B«  LLSTMI  VI  =1HB  . U BBPI  ».  II  =6HBUTH  S.  ENT  RE  NOT  » 

LLPLOI  Bl  =1  • LLPNXI  Bl  =2  . PPHIIB>=15B. 

BE  NO 
BPLTVBR 

IJ=5.  LLSTMI  31  =1HC.  LL  BBPI  5. 1 1 =ENCOMNIT.  6NTE0  UN. 

LLPLOI  51  =1  • LLPHII  SI  =2  . PPHI  IS  1=  15B . 

BEND 

BPLTVBR 

I*f=E.  LLSTMI  61  =1HM • LL  BBPI  E.  II  =6HNBINT  . 6HQUEUC  < 

LLPLOI  61=1.  LLPHII  61  =?•  PPHI  IE  1=15*. 

BC  NO 

bpltvbr 

IJ=7.  LLSTMI  7T  =1HU.  LL  BBPI  7.  II  =SMUNECON.  6H0M  FIX. 

LLPLOI  71=1.  LL  PH  1 1 7 1 =2  . PPHI  IT  1=  15B. 

BE  NO 
BPLTVBR 

IJ=B.  LLSTMI  Bl  =1 HS . LL  BBPI  B.  II  =6HIN  TRB.  ENNSIT  . 

LLPLOI  81=1.  LLPHII  81  =2  • PPHIIBI=1S*. 

BEND 

BPLOT 


1=2.  LLBBPIll.il  = BHTIMFi  ITTBPIZI=I.  NNVBPI2I=6.  ILPLT=Z, 

1=2.  LLBBPIU.il  = BHTIME.  LL  BBPI  11 .2 1 = 1H  . TITBPI2I=3.  NNVBiU.rS. 
LLPLT=Z 
DTPLTI II =0 .S 
BE  NO 
BPLTVBR 

1*1=1.  LLSTMI  11  =1H0.  LLBBPI1.1I=EH0NSTBT.  6 NT  ON  UN. 

LLPLOI  11=1.  LL  PH  X 1 1 1 =Z  . PPHII1|=20. 

BEND 
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SPLTVSR 

I J=2,  LLSVNI21UHP,  LL  SBPI  2,  11  rRHPOHCUS,  6H  UNITS, 

LLPLOI  21=1,  LL  PH  1 1 2 1 =2  , PPHI  (2  1=20. 

•END 

spltvsr 

IJ=3.  LLSVNl  3IUHII , LL  SBPI  J,  LI  rSHCONUS  , GH  UNITS, 

LLPLOI  It  =1  , U.PHII3|=2,  PPHI  (3  1=20, 

SEND 

SPLTVSR 

IJ=*«  LLSYNIin=lHA,  LLA0PIS,1I=SHUNCOKN,  6HITTT0  t 
LLPL0ISI=1,  LLPHIISI=2.  PPHI  IS  1=20  • 

St  NO 

spltvsr 

IJ=5.  LLSVNl  51  =1HC  . LL  SBPI  5.  II  =SHCONNIT.  6HTC0  UN, 

LLPLOI  51=1,  LLPHIf  5|  =2  • PPHII5I  = 20. 

St  NO 

spltvsr 

IJ=6.  LLSVNIC1UHT,  LL  SBPI  6,  II  -6HC0HHIT,  6 HTCO  • 

LLPLOI  SI  =X  , LL  PH  1 1 6 1 =2  , PPHII6I  = 20. 

St  NO 
SPIOT 

1 = 3,  LLSBPI II  ,1  • : SHTINt,  LL  SBPI  U ,2  |:  IN  , TITAPIJI=S,  NNVSR|3I  = S, 

LLPLT  =2 
OTPLTI II  =0  ,9 
St  NO 
SPLTVSR 

IJ=1,  LL  SVHI  IT  =1  HP  , LL  SB  PI  1,  1 1 =S  HP  RN  NE  N , 6 HT  LOSS, 

LLPLOI  tl  =1 , LL  PH  1 1 II  =2  , PPHI  111=20. 

St  NO 
SPLTVSR 

IJ=2.  LLSVNl  21  =LHT  , LL  SBPI  2,  LI  =t  HTtNPR  S,  EHRV  LOS. 

LLPLOI  21  =1  , LLPHII  21  =2  , PPHII2I  = 20, 

St  NO 
SPLTVSR 

T J=3 , LLSVNl  31  =1HR,  U SBPI  3,  LI  =GHNSINT  , 6 HRtTURN, 

LLPLOI  11=1,  LLPHII  LI  =2  , PPHIIJI  = 20. 

St  NO 
SPLTVSR 

IJ=S,  LLSVNl  SI  =1  HR  , U SBPI  «,  LI  =6HPVRS  R,  (HtSCRVt, 

LLPLOI  S I =1  , LLPHII  SI  =2  , PPHII«I  = 20. 

SEND 

splot 

I = S . LLSBPI  LL  ,L  I = SHTINt,  LL  A8PI  U ,2  1=  !H  , TITSPISI  = T,  NNVSPISI=3. 
LLPLT=  2 
CTPLTI!I=0.» 

St  NO 

spltvsr 

IJ=L.  LLSVNl  M =1HT,  LL  SBPI  I,  II  rCHTR  PRO,  6 HH  THSN, 

LLPLOI  1 1 =L  , LLPHIIII=2,  PPHIIll  = 2nO. 

St  NO 
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•PLTVAR 

IJ:?.  LLSYHI  27  -1 HN  9 U ABPI  2.  It  rSHTK  W/N.  (HO  CRFM, 

LLPLOI2in.  Li.  PH  1 1 2 1 =2  • PPHI 12  U200. 

•E  NO 
•PLTVAR 

Jjzjt  LLSYHI  31  =1HC  * U »8P(  J,  II  rSH»V»a  t SHCRfH/8. 

LLPLOI3l=l.  LLPHII  31  =2  . PPHII3I-200. 

•EHO 

•PRIORI  KKRNKUi  IINN  =1 

•END 

•INITAL 

MSTOPn.  JJCLR=1.  JJBEO=i»  TTBEE=0..  JJFIL=1  • TTFIIC61.  . TrCRP=B 
•END 
•SEEDS 
•END 

•acain 

LLSUPIl  I:2i2>lt2ia<2i2i  2.  2. 2. 2. 2.  ITCRD=IJ 
•ENO 


3.6.  BASE  CASE  D AT  A 

THE  FOLLOWING  IS  6 SAHPLE  INPUT  OrCN  TO  THE  SUBPROPRAH  INTLC. 


NUNITS 

2* 

ntypes 

l 

ODA  V 

ID. 

KO«Y 

£0 

nhate: 

NUHBER  OF  RONS 

IN  THE  NAINTAINE 

NHATE 

1* 

table: 

SERIAL.  TOTAL 

HA  IN  TE  NANCE. 

CAPA 

table 

2BD35  . 

25  82. 

.28 

TABLE 

2 90  25  . 

2182. 

.28 

TABLE 

29015. 

10  57. 

.28 

t»ple 

29155  . 

0172. 

.28 

TABLE 

290 T5  . 

U5  78, 

.28 

TABLE 

29055  . 

09  92. 

.28 

TABLE 

2 90  85  . 

05  02. 

.28 

TABLE 

2 91 3T  . 

07  05. 

.28 

TABLE 

291  05  . 

01  BO. 

• 28 

TABLE 

29207. 

08  82. 

.28 

TABLE 

291  35  . 

02  25. 

.28 

TABLE 

2 9285  . 

0127. 

.28 

TABLE 

2 9208  . 

02  73. 

.28 

table 

29127. 

0300. 

.50 

nchrat: 

NONCOHB  AT  LOSS  RATE 

NCNRAT 

.01 

.01 

IFOR  EACH  TYPE  I 
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comrat:  combat  loss  rate 

COMRAT  .062  .062 

perrat:  personnel  loss  rate 

PERRAT  1.2  1.2 

unrep:  unrepairable  loss  rate 

UNREP  .05  .OS 

oanrat:  permanent  oanaoe  rate 

OAHRAT  .36  .36 

abrat:  abandonment  rate 

ABRAT  .026  .026 

crwlsr:  permanent  cren  loss  rate 

CRWLSR  .926  .926 

pmrshr:  preparation  tine:  pnrs 

PWRSHR  0 36  . 0 36  . 

unecrt:  uneconokically  repairable  rate 

UNE  CRT  .17  .IT 

pwrs:  initial  wa*  reserves  stock 

PHRS  1131.  1111. 

REPRAT 1 REPAIR  RATES 
REPRAT  1106.  1106  . 

RFPRAT  0B66.  0S6G. 

pwrsrt:  war  reserves  output  in  MANHOURS  PER  day 

PWRSRT  1586  . 1 SB  E. 

QLYSTA:  COMMITMENT  DELAY:  ON  STATION  UNITS 
OLVSTA  1. 

oltp"m:  commitment  delay:  poncus  units 

OLYPON  10. 

olycon:  connitment  delay:  conus  units 

OLYCON  S • 

olyhos:  hospital  returns  to  theater  stpcks  delay 

OLYHOS  16. 

olysup:  shipments  to  unit  eron  theater  STOCKS  DELAY  (EOUIPMENTI 

OLYSUP  6. 

olyper:  shipments  to  unit  eroh  theater  stocks  oflay  ipepsonnel: 

OLYPER  6. 

OLYMAi:  OELAY  BEFORE  MAINTAINENCE  Ts  SET  UP 
DLYMAI  6. 

osncm:  fraction  of  OS  NONCOMBAT  LOSSES  treatEO  BY  OS  PAINT AtN'-NCE  UNITS 
DSNCM  .16 

oscom:  fraction  of  os  combat  units  treated  by  ds  haintainfnce  units 

OSCCM  .76 

MAFACTll.Ji:  AVERAGE  OS  MAINTAINENCE  TIME  FOR  NONCOMBAT  EOUIPMFNT 
MAFACTll.J  7.  T. 

MAFACTI2.JI  : AVER  AO  E OS  MAINTAINENCE  TIME  FOR  NONCOMBAT  FBUIPMENT 
MAFACTI2.J  65.  65. 

MAFACTll.Ji:  AVERAGE  DS  MAINTAINENCE  TIME  FOR  COMBAT  EOUIPNENT 
NAFACTI3.J  16.  16. 

MAFACTI6.JI1  AVERAGE  6S  MAINTAINENCE  TINE  FOR  COMBAT  EOUIPNENT 
MAF  ACT  1 6.  J 69.  69. 

crwper:  crew  sues 
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CRMPER  <t.  5. 

thtpsn:  unit  origin.  serirl  number,  rrrivrl  tIheiexcept  for  onstrtion  untt 

UNI TAUIIfJ.ll  • UNITES  RUTH0RI2ED  DUIPNCNT  STRENGTH 
UNIT»UII.J.2i:  UNITES  RUTHORIZEO  E8UIPNENT  STRENGTH 


THTRSN 

1. 

290  35. 

1 . 

UNITRUIU 

360. 

UNI TRU ( 2 1 

1M0. 

THTRSN 

1. 

290  35. 

1. 

UNITRUIU 

36  0. 

UNITRUI2I 

INTO  . 

THTRSN 

1. 

2)025. 

1. 

UNITRUIlt 

301. 

UNITRUI2I 

12  2*  . 

THTRSN 

1. 

2)0  25. 

1. 

UNTTRUI1I 

306. 

UNITRUI2I 

12  25  . 

THTRSN 

1. 

3. 

UNITRUIU 

15  9. 

UNITRUI 21 

636. 

THTRSN 

1. 

1. 

UNITRUIU 

15). 

UNITRUI 21 

631. 

THTRSN 

2. 

2)025. 

2. 

UNITRUIU 

306. 

UNITRUI 21 

1225  . 

THTRSN 

2. 

2. 

UNITRUIU 

15  9. 

UNTTRUI2I 

636. 

THTRSN 

2. 

2)0  35  . 

3. 

UNITRUIU 

36  0. 

UNITRUI  21 

15 10  . 

THTRSN 

2. 

290  25  . 

5. 

UNTTRUIU 

306  . 

UNTTRUI2I 

1225. 

THTRSN 

3. 

2)015. 

21. 

UNITRUIU 

120. 

UNTTRUI2I 

5 SO. 

THTRSN 

3. 

291  55  . 

23. 

UNITRUI  11 

0. 

UNITRUI2I 

0. 

THTRSN 

3. 

290  15. 

23. 

UNITRUIU 

66. 

UNITRUI 21 

265. 

THTRSN 

3. 

290  35. 

25. 

UNITRUIU 

360. 

UNITRUI  21 

1550. 

THTRSN 

3. 

2». 

UNTTRUIU 

175. 

UNITRUI  21 

6 96  . 

THTRSN 

3. 

2 a. 
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UNTTAUI XI 

12. 

UNTTAUI 7) 

M. 

THTRSH 

3 • 

210  75  . 

26. 

UNITAUI XI 

66. 

UNTTAUI2I 

26%  • 

THTRSH 

3 • 

210  55  . 

26. 

UNITAUI XI 

66. 

UNTTAUI2I 

2 6%  . 

THTRSH 

3 • 

210  75  . 

SO. 

UNITAUI XI 

&2Q. 

UNITAUI2I 

% 80  » 

THTRSH 

3 • 

21015. 

3 5, 

UNTTAUI XI 

12. 

UNI TAU I 21 

M. 

THTRSH 

3 • 

2 90  65  • 

35* 

UNITAUI XI 

0. 

UNITAUI 21 

0. 

THTRSH 

3 • 

290  25  . 

59. 

UNTTAUI 11 

198  . 

UNITAUI2I 

792. 

THTRSH 

3 » 

210  25. 

59. 

UNITAUI XI 

1%%  • 

UNITAUI2I 

5 76  . 

THTRSH 

3 • 

2 90  75  . 

£0. 

UNITAUI XI 

120. 

UNTTAUI2I 

% 60  . 

THTRSH 

3 • 

201  IS. 

*1. 

UNITAUI  XI 

066. 

UNITAUI2I 

26%  • 

THTRSH 

3 • 

210  75. 

57. 

UNITAUI  XI 

066. 

UNITAUI2I 

26%  • 

THTRSH 

3 * 

291  IS. 

55. 

UNTTAUI 11 

012  . 

UNITAUI2I 

0*8  . 

THTRSH 

3 . 

2 90  75  . 

59. 

UNITAUI 11 

066. 

UNITAUI2I 

2 6%  • 

THTRSH 

3 • 

210  75. 

59. 

UNITAUI 11 

066  • 

UNITAUI 21 

26%  • 

NPfSUPJ 

NUMBER  ©F  WAR 

RESERVES  RE 

SURREY 

EVENTS 

NRfSUP 

nrtsup: 

15 

T THE  • QUANTITY,  f OUIPNENT 

TYPE 

THAT  RECEIVES  RESUPPLY 

NRfSUP 

32. 

0 51. 

1. 

NRfSUP 

3E  . 

160. 

1. 

NRfSUP 

10. 

160. 

1. 

NRfSUP 

11  . 

ISO. 

1. 

NRfSUP 

IS. 

ISO. 

1 . 

NRfSUP 

52. 

ISO. 

1. 
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NRTSUP 

56  . 

160. 

1. 

nrtsup 

60. 

9 7. 

1. 

NRTSUP 

66. 

20. 

1. 

NRTSUP 

66. 

2 0. 

1. 

N PE SUP 

72. 

2 0. 

1. 

NRTSUP 

76. 

2 0. 

1. 

NRTSUP 

80. 

2 0. 

1. 

NRTSUP 

66  » 

2 0. 

1. 

NRTSUP 

66. 

2 0. 

1. 

NRTSUP 

92  . 

20. 

1. 

nrtpl: 

NUMBER  OF  RESERVE  REPL  ACENENTPrRSONNEL  EVENTS  RECEIVED 

NRTPL 

23 

nrtpl: 

TIME.  8U8NTITT.  EQUIPMENT  TYPE  TM6T 

RECIEVCS  PERSONNEL 

NRTPL 

6. 

726. 

1. 

NRT  PL 

6. 

72  6. 

1. 

NRT  PL 

12. 

72  6. 

1. 

NRTPL 

16. 

726. 

1. 

NRTPL 

20. 

72  6. 

1. 

NRTPL 

26. 

72  6. 

1. 

NRTPL 

26. 

72  6. 

1. 

NRTPL 

32. 

72  6. 

1. 

NRTPL 

36. 

57  7. 

1. 

NRTPL 

60. 

57  7. 

1. 

NRT  PL 

66. 

57  7. 

1. 

NRTPL 

66. 

57  7. 

1. 

NRTPL 

S2. 

57  7. 

1. 

NRTPL 

56. 

57  T. 

V. 

NRTPL 

60. 

57  7. 

1. 

NRTPL 

66. 

60  7. 

1. 

NRTPL 

66. 

60  7. 

1. 

r^RTPL 

72. 

60  7. 

1. 

NRTPL 

7 6. 

60  7. 

1. 

NRTPL 

82. 

60  7. 

1. 

NRTPL 

66. 

60  7. 

1. 

NRTPL 

68. 

60  7. 

1. 

NRTPL 

92. 

60  7. 

1. 

NARRNS! 

NUMBER  OF 

ARRIVALS  OP 

MAINTAINED  CE 

ANO  RESUPPLY  UNIT 

NARRNS 

69 

NARRNS5 

TYPE  .TIME. 

SERIAL  .INCREASE  IN  CAPACITY.  EQUIPMENT  TYP< 

NARRNS 

6. 

0 2. 

29207. 

106.  1. 

NARRNS 

6. 

15. 

29207. 

106.  1. 

NARRNS 

6. 

IS. 

29207. 

106.  1. 

NARRNS 

6. 

IT. 

29207. 

106.  1. 

NARRNS 

6. 

2 9. 

29207. 

106.  1. 

NARRNS 

6. 

3 0. 

29207. 

106.  1. 

NARRNS 

6. 

3 0. 

29207. 

106.  1. 

NARRNS 

6. 

3 2. 

29207. 

106.  1. 

NARRNS 

6. 

3 3. 

29207. 

105.  1. 

NARRNS 

6. 

3 5. 

29207. 

106.  1. 

NARRNS 

6. 

36. 

29207. 

106.  1. 
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NARRHS 

17. 

29207. 

106. 

1 

NARRHS 

I* 

3 7. 

29207. 

106. 

1 

NARRMS 

At 

*2. 

29207. 

106. 

1 

NARRHS 

A. 

*3. 

29207. 

1U6. 

1 

NARRHS 

At 

85. 

29207. 

106. 

1 

NARRHS 

At 

«9. 

29207. 

106. 

1 

NARRHS 

A. 

9 9. 

29207. 

106. 

1 

NARRHS 

A. 

S3. 

29207. 

106. 

1 

NARRHS 

A# 

St. 

29207. 

106  . 

1 

NARRHS 

A« 

71. 

29207. 

106. 

1 

NARRHS 

A* 

7*. 

29207. 

106. 

1 

NARRHS 

A* 

7 7. 

29207. 

106. 

1 

NARRHS 

A« 

7 8. 

29207. 

106  . 

1 

NARRHS 

A« 

7 S. 

29207. 

106. 

1 

NARRHS 

A. 

7 9. 

29207. 

106. 

1 

NARRHS 

At 

IS. 

29207. 

106. 

1 

NARRHS 

A« 

8 7. 

29207. 

106. 

1 

NARRHS 

At 

102. 

29207. 

106  . 

1 

NARRHS 

At 

107. 

29207. 

106. 

1 

NARRHS 

At 

113. 

29207. 

106. 

1 

NARRHS 

At 

1H. 

29207. 

106. 

t 

NARRHS 

S« 

17. 

29208. 

0 67. 

1 

NARRHS 

5. 

2 0. 

29208. 

067. 

1 

NARRHS 

*• 

21. 

29208. 

067. 

1 

NARRHS 

5. 

91. 

29208. 

067. 

1 

NARRHS 

5« 

SO. 

29208. 

067. 

1 

NARRHS 

S« 

5 2. 

29209. 

067  . 

1 

NARRHS 

5. 

7 0. 

292na. 

067. 

1 

NARRHS 

St 

7 0. 

29208. 

067. 

l 

NARRHS 

St 

7 5. 

29208. 

067. 

1 

NARRHS 

St 

ITS. 

29208. 

067. 

1 

NARRHS 

St 

179. 

29208. 

067. 

t 

NARRHS 

5t 

ITS. 

29208. 

067. 

1 

NARRHS 

5. 

ITS. 

29209. 

OFT. 

1 

NARRHS 

St 

21. 

29137. 

169. 

1 

NARRHS 

St 

21. 

29137. 

169. 

l 

NARRHS 

5. 

29. 

29137. 

169. 

1 

NARRHS 

S« 

2 7. 

29137. 

169. 

1 

NARRHS 

s. 

3 3. 

29137. 

169. 

1 

NARRHS 

St 

3 3. 

29137. 

169. 

1 

NARRHS 

s« 

3 3. 

29137. 

169. 

1 

NARRHS 

5« 

38. 

29137. 

169. 

1 

NARRHS 

5. 

9 5. 

29137. 

169. 

l 

NARRHS 

5# 

SI. 

29137. 

169. 

1 

NARRHS 

St 

5 2. 

29137. 

169. 

1 

NARRHS 

9. 

SS. 

2 9137. 

169. 

l 

NARRHS 

St 

6 9. 

29137. 

169. 

l 

NARRHS 

S. 

7 3. 

29137. 

169. 

1 

NARRHS 

S« 

7 9. 

29137. 

169. 

1 

NARRHS 

St 

as. 

29137. 

169. 

1 

J 
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N«RRHS  5.  It.  2*117.  If.*.  1. 

N*»RMS  5.  *0.  7*1  ST . IS*.  1. 

N‘RR*S  S.  10.  2*127.  SDO.  1. 

NARRNS  6.  IT.  2*127,  JOO.  1. 

N ARRHS  6.  SI.  29127.  100.  1. 

NARRNS  6.  76.  2*127.  100.  1. 

REDEPLO  7 1.0  1,0  10.0  2.0  1.0  1.0 

nsu  RES V S.O  0.0  6.0  2.0  1.0 
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1.  A PPE  NOT  X 4 list;  82  ADD* 


88  SUOM .SUSPEND 

AUSf  X.  . UNCLASSIFIED t8  2X  8T  » 

• USE  8..82PASP, 

8USE  I.  .8210. 

•USE  8* • 82RUNS • 

•USE  N..82NASTERFILE. 

•USE  U..82UPDATE, 

•USE  RD,  .»2NASTER*R0. 

•USE  (.•tlUOM. 

•COPT*  A E8U0M.  SUSPEND 
•COPT*  A 68U0N. RESUME 

• COPY.  A •2NASYCREILE.MASTERFH.E.TPE8.NASTEREILE 
•ADO  SANACLI8.  MACRO 

• COPT. A *. EBIT. TPEA. EDIT 
•6  AUOM. RESUME. 0 
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APPENDIX  G 

BALFOR  Simulation  Documentation 


INTRODUCTION.  The  purpose  of  Appendix  G is  to  present  the  listing 
of  the  BALFOR  simulation  programs  and  subroutines,  the  flow  diagrams 
of  selected  subroutines  and  a list  of  the  computer  variables  used 
in  the  BALFOR  simulation  programs.  Section  I contains  the  computer 
listings  of  routines  and  subroutines  in  alphabetical  order.  Section 
II  contains  flow  diagrams  of  routines  and  subroutines  and  the  flow 
diagrams  also  appear  in  alphabetical  sequence.  Section  III  contains 
definitions  of  the  FORTRAN  variables  which  appear  in  the  computer 
listings  and  flow  diagrams. 
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••••••  IRRIVL  •••••• 

000001  09  subroutine  arrivl 

000002  09  INCLUDE  COMMON. LIST 

000003  09  C 

00000*  09  C SUBROUTINE  ARRIVAL  NAnDLES  THE  ARRIVAL  OF  UN  IT  INTO  THE  THEATER.  PERSONNEL 

000005  09  C ANO  COUlPNfNT  ARE  MOVED  IN  TG  A UNIT'S  ON  HAND  STRENGTH  FILE.  IN  ADDITION  THE 

000006  09  C UNIT'S  COMMITMENT  IS  SCMEOULEO 

000007  09  C 
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1 CALL  UNSTATIOLVMOS) 

0000  28 

30 

CALL  UNNAXN 

000023 

30 

CALL  NAXNT 

0000  30 

30 

CALL  WARES 

000031 

10 

CALL  TWSTOKl  RL  VSUP  *DLT  PC  R I 

0000  32 

32 

CALL  CHECKI1 8 

000033 

30 

ATRIBI  21=10) 

0000  34 

30 

ATRIBf  It  =TN0I»1 

000035 

10 

CALL  FlLCNtll 

00  00  36 

30 

•SS=CSVS 

0000  37 

30 

IF  (TMOW.OE.RCLOCI  BSS=0*0 

000038 

30 

DO  4 30  IritNUNlTS 

000033 

30 

IF  ITNTOSNlXtll  .BE.  2 4)1  TARN  rT  ANK* UNIT M II  tl  »i  1 

000040 

30 

430  CONTINUE 

000041 

30 

60T0  27 

00004? 

30 

C 

00004] 

30 

C THE  ARRIVAL  OF  A UNIT 

000044 

30 

C 

0000*5 

30 

2 CALL  ARRIVL 

000046 

30 

SOTO  27 

00  0047 

30 

C 

000048 

30 

C THE  CONNITNF NT  OF  A UNIT 

000043 

30 

C 

000050 

30 

3 CALL  COHHIT 

000051 

30 

OOTO  27 

0000  52 

30 

C 

000053 

30 

C THE  ARRIVAL  OF  PERSONNEL  FRO N HOSPITAL  TO  THEATER 

0000  54 

30 

C 

000055 

30 

4 CALL  H 05  FT  L 

000QS6 

10 

OOTO  27 

000057 

30 

C 

000058 

30 

C THE  ARRIVAL  OF  RESUF FLIES  FRON  T (CATER 

00  0053 

30 

C 

00  0060 

30 

S CALL  URESUF 

000061 

00006? 

30 

30 

OOTO  27 

00  0063 

30 

C THE  ARRIVAL  SUFFWICS  TO  MR  RESERVES 

000064 

30 

C 

00  0065 

30 

f CALL  MRARR 

000066 

30 

•OTO  27 

000067 

30 

C 

000068 

30 

C THE  ARRIVAL  CCNIS  REPLACE  PERSONA?" L TO  THE  THEATER 

000063 

30 

C 

000070 

30 

7 CALL  1ESERV 

0000  71 

30 

OOTO  XT 

00007? 

30 

C 

000073 

30 

c THE  ARRIVAL  OF  AODITIONRL  NA  DITE NANCE  OR  OESUPPL  T CAPACITY 

000074 

30 

C 

0000  75 

30 

• CALL  RASUIN 

000076 

30 

OOTO  27 

0000  77 

30 

9 CALL  UNI TOS 

0000  78 

30 

60  TO  27 

0000  73 

30 

199  CONTINUE 

00  00  SO 

34 

C«  WRITE  I 13  tT  INF) 

0000  81 

30 

27  RETURN 

0000  82 

30 

CNO 
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000001 
000002 
00000] 
000004 
000009 
000006 
0000  OT 
00  00  Of 
000009 
000010 
0000 11 
000012 
00001] 


HPSPTl  •••••• 

02  SUBROUTINE  HNSPTt. 

02  INCLUOE  CONNOR  *4- 1ST 

09  CS  MRITC  IU.  lOniTNOV 

02  ^Iffl  FORMAT  f • ••M*<UOmUT«(  MBSRTl  CALLED  A?  •»EI0'1»'  ••*•••! 

02  C THIS  SUBROUTINE  NOUS  ARRIVAL  m HOSPITAL  VB  THEATER  STOCK  RETURNEES 
02  C 

02  R=IFIYf  ATRIB17  l| 

OS  Ct  MRITC  1 13  *192  91  NOSPIRSNI 

01  HO  SR  IN  f R |r  NOSE  IN  IN  K ATRIBI  SI 

OS  CS  MRITC  1 11*19791  NOSPTMNI  .ATRIB 191 

02  RETURN 

02  ENO 


HOSPTL 
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1WTLC 

— • 

• •• 

P00001 

23 

SURROUTTIC  IMTLC 

OOOO  02 

23 

INCLUDE  C0NM6N 

000003 

23 

DATA  ATRZBI1  I.ATRIB!  21  vATRIl  13  t*  ATRIBI  %l  .ATM  16  18  »•  AT  RIM  SI  *ATBIB  f 

00000% 

23 

l 7 1/0.0.1.0.0.0.0.0.0.5.0.0.0-0/ 

00  00  05 

23 

DATA  Ll.L2.Ll.L3A  /6  MU  HITS  • %MDD  AT  »%MKDA  Y .BN  MATE  / 

000006 

23 

DATA  L8.L5.L6/6HNACAPT  .6 MNCHRA T . 6HC0NR AT / 

000007 

23 

DATA  L7.L6.L9.L10/6HPCRRAT.6MUMCP  .SMOAMt  AT  .6  HA  BRAT  / 

oooooa 

23 

DATA  L U »L  12  *L  13  .L 1%  /6  PCRWLSR.  6HPWRSM  .6t%jNCCRT.6MPvRS  / 

000009 

23 

OATA  L 15  cL16«LlT./6HRCPftAT.6»*ttS*T.6M0LYSTA/ 

000010 

23 

DATA  Ll9.L20N.21.L72/6IOLTPON.6HOLTCON.6POLrHOS.6HOLrSUP/ 

000011 

23 

DATA  L23.L2%N.25.L2C/6IOLYPER.6HOLTNAI.6N)SMCN  • 6H0SC0M  / 

000012 

23 

DATA  L27.L26.L29.L30/6H6SMCN  . 6H8SC0N  »6MN  AF  ACT.6MCM VPEM ✓ 

000013 

23 

DATA  Lll  *L32  *L33»L3%  /6MHUMIT.6HMARMS  »6MMRCSUP«6M*REPL  / 

00  001% 

23 

DATA  L 35 /6MM6RMMS/ 

000019 

23 

PBINT  1»  TNOM 

00  0016 

23 

C 

000017 

23 

c 

INPUT  TMF  HUMBER  OF  UNITS  IN  UN  IT  SI  AND  THE  NUN  NCR  OF  TYPES  OF 

000016 

23 

c 

C6UIPHCNT  IN  EACH  OF  THOSE  UNITS  INTYPCSI.  T»C  PARAMETER  VALUES 

000019 

23 

c 

U 

A NO  T IN  THE  PROC  MUST  EXCEED  THOSE  INPUT  MCMC.  SO  THAT  TMF  ARRAYS 

0000  20 

23 

c 

ARC  PROPERLY  DIMENSIONED* 

000021 

23 

c 

0000  22 

23 

CALL  PRNTQI1 t 

000023 

23 

WRITE!  NPRNT.  ID  2U  » LI 

00002% 

23 

t 

• • • 

00 

0000  25 

23 

c 

• 

0 

0000  26 

23 

c 

• 

MU  HITS 

• 

OOOC27 

23 

c 

• 

• 

0000  29 

23 

... 

RE  AO  1 IS  .10101  NUNITS 

0000  30 

23 

c 

• M 

00 

000031 

23 

c 

% 

0 

000032 

23 

c 

• 

•TYPES 

0 

000033 

23 

c 

• 

0 

00003% 

23 

c 

• • • 

00 

000035 

23 

READ  115.10101  MTYPCS 

0000  36 

23 

WRITE  INPRNT.1Q10I  NUNTTS.  N TYPES 

000037 

23 

c 

000038 

23 

WRITEINPRNT.2B2DI  L2 

00  00%0 

21 

c 

• 

• 

0000%! 

23 

c 

• 

DO  AY 

0 

0000%2 

23 

c 

• 

0 

00  00%! 

2 3 

c 

(•*•****••«••»•»«%  00  00  00  • » .*  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  «• 

0000%% 

23 

RE  A0I15.  1000  1 00 AT 

no  oo  % s 

23 

WRITE!  NPRNT.  19  79  1 DO  AY 

00GQ%6 

23 

WRITE!  WPRNT.  0 20  1 L3 

00 00% 7 

23 

c 

00  00  % 8 

23 

c 

• 

0 

0000%9 

21 

c 

• 

WD  AY 

0 

00  00  *0 

23 

c 

% 

0 

000051 

23 

c 

• • • 

00 

000052 

23 

RE  AO  115.10101  VOAY 

000051 

23 

WRITE!  NPRNT.  19  Tt  1 NO  AY 

0000  5% 

23 

00  916  iRAn.V 

000055 

23 

916 

ATRIBf  IRAI=0  JD 

000056 

23 

AIRIS!  21=1.0 

000057 

23 

ATRI6!  lirATRIVfl  1%  1- 0 

000056 

23 

CALL  FILCNIlt 

000059 

23 

PRINT  91 

000060 

21 

91 

FORMAT!*  INTLC:  FILER  11  1 FOR  ATR1BI1I  COMPLETED.*  1 

000061 

23 

TANN=0.0 

000062 

23 

DO  SO  J=1«NTYPFS 

000063 

23 

00  123%  NH- 1 *60 

00006% 

23 

00  123%  11=1.21 

000065 

23 

IF!I1.LE.3I0PLTAIIJ.NN^|  1=0.0 

000066 

23 

IFIIX.LE.11IIN!TI.NN»J  1=0.0 

000067 

23 

123% 

OUTIII.MM,  J|=0  X 

000068 

23 

PR  ML  OS  f J 1=0. 

000069 

23 

PE  RL  OS  IJ  1=0. 

0000  70 

23 

TSPNOTIJI  = 0. 

0000  71 

23 

PWRS  IN  ! J 1 = 0. 

0000  72 

23 

Pf  R > IN  1 J 1 = ou 

000073 

23 

UNf  C ON  1 J 1 = 6. 

00007% 

23 

MOSPlNlJl  = B. 

0000  75 

21 

RCPOUTIJI  = 0. 

0000  76 

23 

PWRSOU  ! J 1 = 0. 

0000  77 

23 

PWRS IN ! J 1 = 0. 

0000  78 

2 J 

MOSP  ! J 1=  0. 

0000  79 

21 

OTISUCB. 

0000  80 

23 

OTROS!  Jl=0. 

0000  61 

23 

0 FUNDS  ! J 1=  0. 

0000  82 

23 

•c  “AMR  1 J 1=  0. 

IMTLC 
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OTIC  — •••• 


oo  oo  a 3 

23 

PTNANSIJUO. 

0Q  00  89 

23 

ROSIN! J»=0. 

0000  85 

23 

SUPT OT 1 J I-  0. 

00  00  as 

23 

TOSINI  Jl=0. 

0000  87 

23 

UNOSINI 4>=0. 

0000  8* 

23 

00  90  1-1*9 

000088 

23 

90 

CONTIHUE 

000090 

23 

DO  9 5 1=1*  MUNI  TS 

0000  91 

23 

c 

000092 

23 

c 

COLUHM  1 OF  TME  TREA  TC  A STATUS  MATRIX  ITHTRSNI  CAN  HAVE  A VALUE 

000093 

23 

c 

BETWEEN  0 A NO  2.  INCLUSIVE,  THE  NE  AMIN8S  AIK: 

000099 

23 

c 

0=  TME  UNIT  HAS  NOT  ARRIYCD# 

000095 

23 

c 

1=  THE  UNIT  HAS  ARRI YEO* 

00009S 

23 

c 

2=  THE  UNIT  IS  CONHITTEO, 

000097 

23 

c 

000098 

23 

c 

THE 

NEANIMOS  OF  COLUMNS  2 «Q  S ARE  EXPLAINED  LATER  IN  THIS  PRORRAN. 

000099 

23 

c 

0001 00 

23 

TMTNSHd  *1  l-Q, 

000101 

23 

CREW *V  f I • J 1 = 0. 

00010? 

23 

BACK  PL  IT  »J  1=0. 

000103 

23 

BACKLO  1 1 »J  1=0. 

000109 

23 

resupo  f I • j *i  rao. 

000105 

23 

RESUPAII  • J *1  1—  0. 

00  01  OS 

23 

RE  SUPAfT  *J*2  1=  0. 

000107 

23 

RESUP0II.J.2  7=>0. 

000108 

23 

TSTOCK IX  *J  1-0. 

000109 

23 

TPCRS4  I.  Jl=0. 

000110 

23 

UNITON  1 1 *J  *11=0. 

000111 

23 

UNTNAClItJ  1=0.0 

000112 

23 

95 

UN I T OH » I. J ,j  »ac. 

000113 

23 

SO 

CONTINUE 

000119 

23 

PRINT  92 

000115 

23 

§2 

FORNAT  I*  INTLC:  ZENOBIO  OUT  OF  ARRAYS  CONPLETEO.M 

000118 

23 

•••< 

000117 

23 

• 

• 

0001  IS 

23 

• 

■NATE  • 

000119 

23 

• 

• 

000120 

23 

• ••4 

000121 

23 

0001  22 

23 

INPUT  THE  WINNER  OF  NOWS  IN  TME  MAINTENANCE  CAPACITY  LOOKUP  TAKE 

000123 

23 

000129 

23 

WRITE!  NPRNT.  ■ 20  I L3  A 

000125 

23 

RE  AO  (IS  *10301  ALPHA 

000128 

23 

c 

NRITE  CNPNNT  *10311  ALP  NR 

000127 

23 

RC  AO  1 1 5*  10 10  1 NNATE 

000128 

23 

WRITEINPRNT*  19791  NHATC 

000129 

23 

WRITE!  NPRNT*  1020  1 L9 

000130 

23 

OE AO  ! IS  *10307  ALPHA 

000131 

23 

c 

WRITE  INPNNT  *1  0311  ALPHA 

000132 

23 

00  5 00  I=1*NHATE 

000133 

23 

c 

INPUT  THE  0I8CCT  SUPPORT  CflNBA T UNIT  ASSOCIATED  MAINTENANCE  CAPABILITY  LOON- UP 

0001  39 

23 

c 

TABLE,  IN  EACH  NOW,  INPUT  THE  SEN TAL  NUMBER , THE  TOTAL  MAINTENANCE  CAPACITY  • 

000135 

23 

c 

AND 

THEM  THE  FRACTION  OF  THE  COMBAT  UNIT'S  CIPNCIT?  DEVOTED  TO  EACH  TYPE  OF 

000138 

23 

c 

CtUTPMENT. 

000137 

23 

c 

UNITS  FON  MAINTENANCE  IS  NUNNCN  OF  NAN  HOURS  AVAILABLE  PEN  OAT. 

000138 

23 

MCOOMT  -NTT  PE  S*  2 

0001  39 

23 

NE  AO  11  5.  1000  MNACAPT  II  *J  I*  1*  NC  OUNT  1 

000190 

23 

WRITE*  NPNNT  • 1979  MNACAPT  II  ,J  )f  ^ 1,  NCOUNT  1 

000191 

23 

500 

CONTINUE 

000192 

23 

WRITE!  NPRNT*  10  20  1 LS 

000193 

23 

c 

000199 

23 

c 

• 

000195 

23 

c 

• 

CHECK  ARRAY  SIZE  ABA  IN  ST  INPUT  OATA  RE  NU  IN  EH  ENTS  . 

000198 

2J 

c 

• 

ERNOR  CONDITIONS  ARES 

000197 

23 

e 

• 

S < NNATE 

000191 

23 

c 

• 

D < KOAT 

000199 

23 

c 

• 

U < NUNTTS 

000150 

2) 

c 

• 

T < MTYPES 

000151 

23 

c 

• 

000152 

23 

c 

• • •* 

• •••••••••••MM******  #•  ••••••  ••  ••*••••••*  ••  ••  Mt*M****t****(*****«MNM 

00015) 

23 

If  ( S.  LI  .«»»  TT  ,0».D.  IT  ,IO«T.  0*  .U  J.I.  «u»l  TS  .0«.T.Lt  .HTTftSI 

0001 59 

23 

ROTO  9001 

000155 

23 

ROTO  3007 

00015* 

27 

3001 

III  S = S 

000157 

23 

III  0 r 0 

000158 

23 

ITT  U r u 

000159 

27 

III  T = 1 

OOU1SO 

28 

WRITE  (6.30001  I IIS*  II  ID  • I IIU.  IT  IT  *NNA  TE  *K  DAT*  NUNTTS  *NTT  PE  S 

00  G 1 8 1 

23 

3000 

FORMAT  (//*•  INTLC!  FATAL  ERROR—  THE  PNONRAN  A NR  AT  SIZE  • 

00018? 

23 

♦ .•spccrrue  m rooraut  moc  miwm  iurmrNTi  is  smo  thm  • 

0001  f.  1 

23 

0001  89 

23 

•S.O.U.tr*  |TH  .«  115.  n It  /.  • IN  TL  C D*  T»  BCCNt  NN AT C • ND NT  tNUN IT S«  * 

IHTtC 
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• i*HnpFS^.TB4IIS«]in 
call  uenniii 
STOP 


C INPUT  NONCONBAT  LOSS  NATES  PON  C ACM  EtUIPNCNT  TTPC. 

3002  PC  AO  I IS  .10301  ALPHA 
C WNITF  f NPNNT  *10311  ALPHA 

•C  AO  US.  1000  A INCMNATI  I)  *1=1  •NTTPCSI 
WN1  TCI  NPNNT.  IS  Til  INC  NR  AT  IX  I.  1^1.  NT  TP  ESI 
UNITE!  NPNNT.  0201  LC 

C • •••••••••••••••••••••••••  •MtMMMatMMUMMMMNMttH**! 

c • 

C • CONN  AT 

C • 

C ••••••••••••••••«»••••••••««••••••••••••••••••••••••••••••••••• 

C INPUT  COMSAT  LOSS  NATCS  PON  EACH  EQUIPMENT  TTPC 
NE  AO  115*10301  ALPHA 
C UNITE  I NPNNT  *10311  ALPHA 

NC  AO II 5*  1000  I ICOHNATI  II  .in  tNTYPCSl 
UNITE  I NP  RNT  * INTO  1 1 CONN  AT  II  I*  X=  1*  NTTPES I 
NNITCINPNNT*  020  I LT 

C *••*•••••*•••••*••  ••••••••MMMMMtttlttMMMHMMMMMH* 

C • 

C • PENN  AT 

C • 

C ••  ••  ••••••  ••  ••  ••  ••  ••  M (•(«  •«  *••••••»••  *•••**(«  M ••  **MM. 

C INPUT  CREW  LOSS  BATES  MMICM  BILL  OCCUN  DUN  DIB  COMSAT. 

NC  AO  ( 15  *1 03 Cl  ALPHA 
C UNITE  INPNNT  *10311  ALPHA 

PC  AO  ( 1 S.  1000  1 IPCRNATI  11  *1=1  .NTYPES1 
WRITE!  NPRNT*  II 71 II  PERN  AT  (l  I*  1=1.  NTTPCSI 
VNITE1  NPNNT.  1920  » LA 

C ••*•«•*••••••••*<•  ««*«*****#**U****»|*I**MMM**M**MMMM* 

c • 

C • UN  PEP 

C • 

C ••  ••  ••  ••  ••••••••  **H**M  •••*••*•*•  • 

C INPUT  UNNCPANABLE  NATES  (PON  NON  CO  MS  AT  LOASSESI. 

RE  AO  115*10301  ALPHA 
C WRITE  I MPNMT  *1  03 1 1 ALPHA 

NE  AO  11  5*  1000  I IUMNEP  II  }«  1=1*  NTVPES  I 
WRITCtNPRNT.llTIttUMRCPI  It  *1=1  .MTTPES1 
WRITE!  NPNNT*  1020  I LI 

C •»nMI*.M**Mt**t**********«***M«**l«*MM  M HM**M«****** 

c • 

C • DAMN  AT 

C • 

C *••••«••••*••«•*••  *••••»*«••••*••••••••••••••••• 

C INPUT  PENN  AMENT  DA  HA  SE  NATES 
RF  AO  1 15*10301  ALPHA 
C WRITE  I NPRNT  *10311  ALPHA 

RE  AO  II  5*  1000  1 I0ANR4TI  II  tin  *MTTPESI 
WRITE  I NPRNT,  1171H0AMRAT  II  )•  1=  1*  NTTPES  I 


WRITE  I NPRNT*  1020  ) L10 


INPUT  A8AN00N  RAW 

READ  115*10301  ALPHA 

WRITE  INPNNT  .10311  ALPHA 

RE *011  5.  1000  PI  ASNATI II  .1=1  *« TYPES! 

WNITEI  NPRNT.  11 73  X AA RATI  II  *ln  •NTTPCSI 
WRITE!  NPNNT*  SB 20  I U 1 

••« 


• •*«•••••••  •••••**•« 

INPUT  PFNNANENT  CREW  LOSS  NATE 

NC  AO  115*10301  ALPHA 
UNITE  INPNNT  *10311  ALPHA 

READ  115*10001  I CNNL  SR  III*  1=1.  NTTPCSI 
WRITE!  NPNNT*  1171 1 ICNWLSNS  II  *1  =1  .NTTPCSI 

WRITCI  NPNNT.  0 201  L12 
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000246 
000247 
000248 
000244 
0002  50 
000251 
000252 
00C253 
000254 
000255 
0002  56 
000257 
000258 
000259 
0007  60 
000261 
0002C2 
000267 
000264 
000265 
00  0266 
000267 
000268 
00026  9 
0002  70 
000271 
0002  7? 
000273 
0002  74 
000275 
0002  76 
000277 
000278 
0002  79 
0002  80 
0002  81 
0002  82 
0002  83 
0002  84 
0002  85 
000286 
000287 
000288 
0002  89 
000290 
000291 
0002  92 
000293 
0002  94 
000295 

0002  96 
000297 
000298 
000299 
0GC300 
000301 
000307 
000303 
000304 
000305 
0Q030C 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000318 
000317 
000118 
000319 
000320 
000321 
00032? 
000323 
000324 
000325 

0003  76 
000327 
000328 
000129 
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INTLC  •••••• 


23 

21 


C 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


• • • ••  00  00  M 00  00  •• 

pwpshr 


IMI*H  M 


INPUT  THE  HAN  NO  118  S OF  PRE  P8RATI0R  EACH  PIECE  OF  EOUlFNEITT  RE8UTKES. 

HE  *0  I 19  #10301  ALPHA 

imiTE  (NPRNT  *10311  ALPHA 

RE  AO  (l  5.  1000  ■ PURS  HR  I J I.J=l.  HTTP  ESI 

WR  I T E ( NP  RN  T . 19  79  H PW  PS »«»  IJ  I • J=  1 • NT  YP  E S I 

WRITE!  NPRNT.  10  20  I U 3 

n ••  •• 

• • 
• UNECRT  • 


M M M ••  M ••  M M •••••»  M M M ••  •• 

INPUT  THE  UNECON  OH  IC  ALLY  9EPAIRAK.E  RATES. 

READ  1 15  .10301  ALPHA 

WRITE  INPRNT  .10311  ALPHA 

PC  AO  II  5.  1000  II  UNECRT  IJ  I.  J=  It  «T  YP  ES  I 

WRITE  INPRNT.  19  79  1 1 UNEC  RT  IJ  I.  J=  1.  NTYPES  I 

WRITE!  NPRNT.  1020  I U4 


• • 

• •••  ..  ••  MM..MN  ••  ».  ..  •• 

INPUT  INITIAL  WAP  RESERVES  STOCK 
READ  (15.10501  ALPHA 
WRITE  (NPRNT  .10311  ALPHA 
RE  AO  II  5.  1000  MPVRS  IJ  It  JS 1.  NT  YP  ES  I 
00  600  J=l  .NTYPES 
600  WARRCSIJUPWRSIJ  I 


WRITEI  NPRNT.  WT9  >1  PURS  IJ  »•  NTYPES  I 
WRITE!  NPRNT.  1020  > US 


RE  PR  AT  • 


C ••  ••  ••••••  ••  *•  ••  00  00  00  00  00  00  00  ..  ••  ..  ••  ••  ....NMM..M..MM..M..MMMMM 

C INITIAL  INITIAL  KPAXR  RATES  IN  NANNOURS 
C l IS  FOR  DS 

C 2 IS  FOR  RS 

RE  AO  « IS  .10301  ALPHA 
C WRITE  (NPRNT. 10311  ALP  HI 

RE  AO  (1 5.  1003  M RE  PR  AT  « »J  I.  J=  1.  NT  YPES  I 
RE  AO  II 5.  1000  Ft  RCPR  AT  12  »J  I.  J=l.  NTYPES  I 
WRITE!  NPRNT.  19  79  1 1 PC  PR  AT  II  »JI.  J=1.NTYPES1 
WRITE  I NPRNT  . 19  79  ) I RC  PR  AT  12  .J  I.  ^ I.  NT  YPES  I 
•S  = RrPRATI2.il 
WRITEI  NPRNT.  1020  I U 6 


C ........  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

c • • 

c • PwRSRT  • 


C • • 

C ••••••••••••••••«••••••••••••••••••••••••••••••••••«••  00  000000000000  00  0001000  00 

C INITIALIZE  WAR  RESERVE  OUTPUT  RATES  IN  NAM  HO  IRIS  PER  DAY. 

RE  AO  I IS  .10301  ALPHA 
C WRITE  INPRNT. 10311  ALPHA 

RE  AO  II 5.  1000  II  PWRSRT  IJ  I.  J=  1.  NTYPES  I 
MP1TFI  NPRNT  .19  79  1 1 PWRSRT  II  1.1=1.  NTYPES  I 
WRITEI  NPRNT.  1020  I LIT 

c • • 

c • OLYSTA  • 

C • • 

C ••••••••••••••••••••••••••••••••••  ••••••••••  ••  ••  .*  00  00  00  00  00  ••  ••  ••  ..  00  00  00  00  00 

C INPUT  ON  STATION  COHHITHENT  DELAY 
RE  AO  I IS  .103(D  ALPHA 
C WRITE  (NPRNT  .10311  ALPHA 

RE  AO  II 5*  1000  I OLYSTA 
WR  ITr  I NPRNT.  19  79  ) OLYSTA 
WRITEI  NPRNT.  1020  I LI  9 
C INPUT  PONCUS  COHHITHENT  DELAY 


C ••••••••••••  ••  ••  ••  ••  ••  ••  ••  ••  ••  ••  ••  ••  ••  ••  00  90  00  00  ••  00  00  00  ••  00  00  00  00  ••  00  ••  00  ••  *4 

C • , 

c • PL  IP  OH  l 

C • , 


RE  AO  (19.10301  ALPHA 
C WRITE  I NPRNT  .1  03  1 1 ALPHA 

RE  *011  5. 1000  » DLYPOH 
WRITri  NPRNT.  1979  I OL  IP  OH 
WRITE!  HPRHT.  1020  I L?0 


INTLC 
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• • INTlC  mmm 


0UG13U 
000  9 31 
OOOJ32 
OOL333 
0003  3« 
0003  3b 
0003  34 
000337 
000338 
000333 
000  3*0 
0003*1 
0003*7 
0003*3 
0003** 
000385 
0003*6 
000387 
0003*8 
000389 
00  03  SO 
000351 
00035? 
000353 
000358 
000355 
00035*. 
000357 
000358 
000359 
000360 
DPCJ61 
000362 
000363 
000368 
000365 
000366 
000367 
000368 
000369 
000370 
00  03  71 
00037? 
000371 
0003  78 
00  03  75 
000376 
000377 
000378 
0003  79 
0003  80 
000381 
00C38? 
000383 
000388 
000385 
000386 
000387 
000388 
000389 
000  J 90 
DO  0 J 9 1 
00039? 
000193 
000398 
000395 
000396 
000397 
000398 
000  1 99 
0008  00 
000801 
00080? 
0008CJ 
000808 
0008  05 
00  08  06 
000807 
000808 
000809 
0008  10 
000811 


2 

2 

2 

2 

2 

2 

1 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
T 
2 
7 
2 
7 
7 
7 
7 
2 


C • •••  ••••••••••••MMtCMMMtlMOMMOMHMHMMMUMUMNMMWMMMM 

C • • 

C • OLECON  • 

C • • 

c M M ••••  ••  • • 

C INPUT  CONUS  CONN  IT RENT  0 CL  88 
■t  60  I IS  *1  0303  ILPMI 
C WRITE  I HP*  NT  *10311  ALP  Hi 

#7  40115.1000  7 OLTCON 
MUM  NP  KMT.  19  79  > OLTCRN 
MITMNPRRT.  XO20  I L2  1 

C INPUT  HOSPITAL  8 FT  UP  N TO  DCRTCR  P Ft  SO  MR  CL  0CL8T 


C • t 

C • OLVMOS  • 

C • • 

C ••••••••••••••••  ••  ••••••••  ••  ••  ••  ••  ••  ••••••••  ••  ••  ••  M ••  ••  ••  ••  ••  ••  • • ••  M ••  *4  • • •• 

PC  40  « 15,10301  ALPHA 
C WRITE  INPRNT  .10311  ALPHA 

RE  AO  II  5.  1000  F OLVHOS 
WRITCI  NPRNT.  19  79  ) QLTHOS 
M1TMNPPNT.  10  70  I L2  2 


C INPUT  DCLA  T FOP  SUPPLIES  SHIPP  CO  FPOR  TNCATCP  STOCKS  TO  UNITS. 

c • • 

c • PLESVP  • 

c • • 

C ••••••MNMtVMMMMMMMHMNMHMMMWMNMNWMM 

PC  AO  115.10301  ALPHA 
C WRITE  INPRNT,  10311  ALPHA 

PCAOIIS.  1000  I OLYSUP 
WRITCI  NPRNT,  1979  I OLVSUP 
WRITE!  NPRNT,  ID20  I L2  J 
C INPUT  PERSONNEL  TO  UNIT  SHIPNCNT  DEL  AT 


C •(••••(•••••••••<•••••••  ttMMMMMMttMMMM  M M MM  ••  W M •••!••  M M M M M 

C • • 

c • OLTP  CP  • 

C • • 

C ••••  ••••mmmmhm 

READ  115.10301  ALPHA 
C WRITE  INPRNT  •1031)  ALPHA 

RF  AD  H 5.  1000  I OLTPER 
WRITE!  NPRNT.  1979)  OLTPER 
WRITE!  NPRNT.  1020  I L28 


C INPUT  OELAT  IN  OS  NAINTA INENCE 


c • • 

c • 0LTH8X  • 

C • • 

C ••••••••••••••••••••••  MMM9AMHNHHMMMMH  •• 


READ  115.10301  ALPHA 
C WRITE  I NPRNT  tl  03 1 ) ALPHA 

RE  AO  1 1 5.  10  00  I OLVNAI 
WRITCI  NPRNT.  1979)  DL  TN  41 
C 

c • • 

c • OS  NCR  • 

C WHERE  DO  THE  0 4H46E0  UNITS  60?  INPUT  THE  FRACTION  OF  NONCONpAT  LOSSES  THAT 
C • • 

c 

c 60ES  TO  OS  NAINTVNANCE. 

READ  (15.10301  ALPHA 
C WRITE  I NPRNT  .1  OT  1 * »!<>« 

PE  AO  II  5.  1000  ) IOSNOUZ  ).  1=  1.  NT  TP  ES  | 

WRITCI  NPRNT.  ID  2D  I L2  5 

WRITE!  NPRNT.  19  79  ) IOSMCH  II  )•  1=  l.NTTPES  I 


C • OSCON  8 

C • 8 

c •••*•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

C WHERE  00  THE  0AHA6ED  UNITS  60?  INPUT  THE  FRACTION  OF  CO  HP  AT  LOSSES  THAT 
C GOES  TO  DS  MAINTENANCE  • 

READ  IIS  .10301  ALPHA 
C WRITE  I NPRNT  .1  03  1 1 ALPHA 

RE  AO  115,1000  I IOSCO*  II  1.1=  l.NTTPES) 

WRITCI  NPRNT.  1020)  L26 

WPTTCI  NPRNT.  1979  ) IOSCO*  II  I.  1=  1.  NT  TP  IS  ) 

03  7 Iri.NTYfffS 
8SNCNI  II  =1  .-PS NCR ( I| 

6SC0NII)=1.>0SC0*II| 

2 CONTINUE 


intlc 
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INTIC 
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000412 
000413 
00  0414 
000415 
000416 
000417 
0004  It 
000413 
0004  20 
0004  21 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000423 
0004  30 
000431 
000432 
000433 
0004  34 
000435 
0004  36 
0004  37 
000438 
000433 
00044Q 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000443 


2 


C 


c 


c 

c 

c 

c 

c 

c 

c 


WRITEI  NPRNT,  UIH)  I 
WRITEI  NPBNT*  15  75) 
WRITEI  HP N«T.  102B  I 
WRITE!  NPRNT*  13731 
WRITEI  NPRNT.  ID 20  I 


L2  7 

It  SUCH 

Lit 

it  sc  on 

123 


II 

II 


l*I=l*NTYPESI 
It  1=1*  HTTP  ESI 


nafact 


• • •«  ••  ttttMM  ••  ••  ••••  tttttt  ••  ••  «•  ••  ••  MttttM  ••  tt  ••••  NtMtM  •• 

AVEMAAC  DS  NAXHTEMTANCC  TINT  FON  NON  CON  OAT  E8UIPHCNT  BY  TTPf. 

URINE  AS  N LINT  EM  TANCE  TINE  F*  NON  CONN  AT  ENUIPNFIfT  BT  TTPC. 

AVENUE  OS  NAlNTfNTANCC  TINE  FtN  COMBAT  EBUIPNENT  BT  TTPf • 

AT EN ABE  BS  NAlNTfNTANCC  TIIC  Ft 


NAFACT I 1 t J I 
NAFACT 12  t J > 

NAFACT 1 3 *J  I 
NAFACT 14  tj I 

DO  3 1=1  #4 

BEAD  115*10301  ALPHA 
WHITE  INPNNT. 10311  ALPHA 
BE  AO  II  5*1000  r INAFACTI  I*  J)  .J=l  *N  TTPf  SI 
WNITf  I NPBMT  • 13  73  I IN  AF  ACT  I I*  Jl  *J=1  • NTT  PE  SI 
3 CONTINUE 

WRITEI  NPRNT « 1020  I LIO 


CON BAT  EBUIPNENT  BT  TTPf. 


CTWPEN 


M ••  M ••  M ••••••••  M ••••  M M 

INPUT  CNEW  SIZES  BT  TTPC  CAJIPNCNT* 

RE AO  113*10301  ALPHA 
WRITE  INPNNT  *10311  ALPHA 
REA0I15*1000  > ICRWPCRI  II  *1=1  *N  TYPE  SI 
WRITEINPRNT*n73l  ICRWPCRI  II  *1=1  *NTTPES» 

MMt**«***tM*»M***l**t***t***«*M**MM**M  M ••  ••  ••••••••••  •••**•••••  M M M 


THTRSN  • 

•M*  ••••••  M • • •#  ••  ••  *•  44  M ••  M**M*t  ••  •*  •*  **  **  ** 


HERE'S  THE  EXPLANATION  FOR  COLUMS  TWO  RNO  THREE  IN  THE 


0004  50 
000451 
000452 
00  0453 
0004  54 
000455 
000456 
000457 
000458 
OC  04  53 
DO  04  60 
000461 
000462 
000463 
000464 
000465 
0004  66 
000467 
000468 
000463 
0004  70 
000471 
0004  72 
0004  73 
0004  74 
0004  75 
00  04  76 
0004  77 
00  04  78 
0004  73 
0004  80 
000481 
0004  82 
000483 
0004  84 
0004  85 
0004  86 
00  04  87 
0004  88 
0C0483 
00  04  30 
000431 
00043? 


23  C THEATER  STATUS  MATRIX  I THTRSN  I.  COLUMN  TWO  RECON  OS  WHERE  THE  UNIT 
21  C CANE  FROM.  THE  NCRNlNQS  ME! 

23  C 1.0=  COMBAT  UNTT  ON  STATION 

23  C 2.0=  PONCUS  UNIT 

23  C 3.0=  CONUS  UNIT 

23  C 

23  C THE  THIRO  COLUNN  CONTAINS  THE  SERIAL  NUMBERS  ASSOCIATED  WITH  EACH 

23  C UNIT.  THEY  ARC  USEO  IN  THE  MOO  EL  IN  THE  M XNTAINfNCC  LOOKUP  TABLE. 

23  C AND  THE  LAST  ENT  NT  IN  THE  NOW  IS  THE  ARRIVAL  TIME. 

23  C 

23  READ  115*10301  ALPHA 

23  C WRITE  INPNWT  *10311  ALPHA 

23  READ  115*10301  ALPHA 

2 J C WRITE  I NPNNT  *1 03 1 1 ALPHA 

23  PE AO  115*1030)  ALPHA 

23  C WRITE  INPNNT. 1031)  ALPHA 

23  WRITEI  NPRNT.  M20  ) LI  1 

23  DO  200  1=1  .NUN ITS 

23  ATRIBI  2)  =2  .0 

23  ATRIBI  31=1 

23  RE  AO II 5*  1000  ) THTRSN  II  .2  )•  THTRSN  II  *3  )•  ATRIBI  11 

23  WRITE!  NPRNT.  1575)  TH TR SN  II  *2  I • THTRSN  II  *3  I*  ATRIBI  1) 

23  IF  I THTRSNI I *2  ) .HE.  1 JO  I CAU.  FILER II  ) 

23  C .•••••••••••••••***M*tM******M***M***MM****M**M*.**M**M********MM 

23  C • • 

23  C • UNTT AU  • 

23  C • • 

23  C *M«Mt.********AM**.***l**tM*****M*IMMn**MMMM**H**MM«*M  M ••  M •• 

23  C 

23  C INPUT  THE  UNIT  •$  AUTHORIZED  EBUIPNENT 

23  C 

23  RE  AO  1 1 5*  1000  ) lUNlTAUf  I.  J*  1)  .Jn  *NTTPCS) 

23  WRITEINPRNT.  19  75  ) IUNI  TR  Ul  I*  J*  1)  .J=l  .NTT PC  SI 

23  C 

23  C INPUT  THE  UNIT'S  AUTHORIZED  PC RSQMNF L 

23  C 

23  RCAOI15.1DOOI  IUNI  TA  Uf  I*  J*  2)  *J  =1  .NTTPCS) 

23  WRITEINPRNT.  15  75)  IUNI  TMUl  I.  J*  21  .J=l  .NTTFCSI 

23  C 

23  C IF  YOU  HATE  AH  ONSTATIOM  UNIT*  SCHEDULE  ARRIVAL  OF  UNIT  AT  FEBA 

21  C 

23  IFITHTRSNII.V1  •£  8.  1.  01  CALL  ONMANO  II  *OLTST  A) 

23  200  CONTINUE 
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00  0991 

2 J 

c 

00  09  99 

23 

c 

00Q99S 

23 

c 

• hr  r sup 

. 30*  91 

23 

c 

CO  0**57 

25 

c 

DO  09  99 

23 

c 

C00A99 

23 

c 

I9**U?  THI  MUrtr  9 OF  9 A 9 Rf  SI  R ¥ l S RESUPPLY  EVENTS. 

uOCSOO 

2 1 

c 

U0USU1 

23 

WHITE  1 9 "9  9 T • 1 07  0 t L 33 

coosc? 

23 

Rf  AO  ( 15  .10301  ALPHA 

OOuSOT 

23 

c 

WRITE  fNPONT  . 10911  ALPHA 

oooso* 

21 

RE  AO  ( 15 .10101  NRf  SUP 

oousos 

2 J 

RRITE  (NPRNT  .1  9791  NRESljP 

00  05  OS 

23 

BE  AO  1 15  .10301  ALPHA 

UO  0507 

23 

c 

UNITE  IHPVNT.L031I  ALPHA 

000509 

73 

IF  IHRFSUP!  79  0.27  0.  29  1 

300509 

73 

291  ATAl9l7»r9.0 

0‘i05l0 

23 

ATRIBI 31 zfl.O 

JO  05  11 

23 

DO  299  1=1  .NBC  SUP 

0005  12 

23 

c 

0005  13 

23 

c 

IHPUT  THI  TIHE,  filfTPHCHT  9UMT1TT  A HO  TYPE  THAT  RECEIVES  RESUPPLIES  IN 

00  0519 

21 

c 

WAR  RESERVES. 

000515 

73 

c 

OCC516 

23 

RE  AO  11  5.  1000  UTRItfl  )«  ATRXBI  91  »A  THU  17  1 

0005  17 

23 

MfiJ  It  (NPRNT  .19  79  1 ATRIBI  11  .ATR  IB  (9  » . ATRIBI  71 

0005  19 

23 

269  CALL  TTLlHtl  > 

000519 

23 

2T0  COHTIHUf 

00  05  70 

73 

00  05  71 

23 

• 

3005  77 

23 

• NHEPl 

000573 

23 

• 

0005  79 

23 

000575 

23 

000529 

73 

IN  PO  T THE  HU  USER  BF  RESERVE  REPL  ACEKENT  PEtSONHEL  EVCHTS  RECEIVED  HT 

000577 

23 

THE  THEATER. 

000579 

23 

000529 

23 

WRITE!  NPRNT.  1020  » L39 

00  C 5 30 

73 

RE  AO  ( 15  .10301  ALPHA 

000531 

23 

c 

WRITE  INPUNT,  10311  ALPHA 

000537 

23 

RE  A0I15. 10101  HR E PL 

000533 

23 

VS  1 T E 1 HP  ft*  T « 19  79  1 HfttPL 

0005  39 

23 

IEIHREPLI  280.2A0.271 

000535 

23 

271  ATRIBI  21 - 7.0 

0005  36 

23 

ATRIBI  31  =<1  .0 

0005  37 

23 

READ  ( 15.10301  ALPHA 

000539 

23 

c 

VRITE  IH»HHT  .10311  ALPHA 

000539 

23 

00  2 79  Xzl.NREPL 

000590 

23 

c 

000591 

23 

c 

IHPUT  TIKE.  RUAHUTT  AHO  THE  OF  PERSON  RESUPPLY  TO  THEATER  STOCK 

000592 

73 

c 

000591 

23 

RE  AO  11  5.  10  00  1 ATRIBI  1|  .A  TR IB  1 5 1.  ATRIBI  Tl 

000599 

23 

WRITE*  NPRNT.  19  79  1 AT  ftl  B<  11  . ATR  IB  IS  | . ATRIW  Tl 

000595 

23 

7T9  CALL  F TLEHI1  1 

000599 

23 

2B0  CONTINUE 

00  OS  9 9 

23 

c 

• 

000599 

23 

c 

• NARPHS 

000550 

23 

c 

• 

000551 

23 

c 

000552 

23 

c 

000553 

23 

e 

INPUT  TIHF  . QUANTITY*  AHO  CBUIPHEHT  TYPE  WHERE  PER  SO  HR  EL  IS  RESUPPLIED 

000559 

23 

c 

F R OH  THEATER  STOCKS. 

000555 

23 

c 

000559 

23 

READ  (15.10301  ALPHA 

00  C 5 5 7 

23 

c 

WRITr  (NPHNT. 10111  ALPHA 

000559 

23 

NRITEINPRNT.  ®20  1 L35 

0005  59 

23 

RE  A0IL5.  10  10  IKARRMS 

000560 

23 

MRI  T(  I NPRNT.  19  79  1 HA  RR  NS 

000561 

2 3 

RE  AO  1 15  .10301  ALPHA 

000567 

23 

c 

WRITE  (NPRNT. 10311  ALPHA 

QGUS63 

23 

Xf  » NARRMS  >299  .291.2  91 

intlc 

• • 

• • 

C-20 
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INTLC  •••••• 


oonu 

n 

281 

ATRIBI  21  =0  »Q 

0005(5 

71 

8TM8I9»=0.0 

000566 

73 

00  2 90  I:i*NMMS 

0005(7 

2 3 

C 

0005(8 

2 3 

C THC 

INPUT  PARAMETERS  IKS 

0005(9 

23 

c iittpc  or  arrivals  9 «o  is  os  rairtemarce  unit 

000570 

23 

c 

5.0  IS  OS  MAINTENANCE  UNIT 

0005  71 

23 

c 

B.O  IS  SUPPLV  UNIT 

0005  7? 

23 

C 2 » 

TME  TINT  Of  ARRIVAL! 

000573 

21 

C 31 

UNIT  NUMWR  fUSC  0.0  I F NOT  AP  PL  IC  AO  L£  1 1 

0005  79 

23 

C 91 

INCH  FAST  IN  TM  AT  UNIT'S  NAINTAINENCC  OR  SUPPLY  CNICniJ 

0005T5 

21 

C 51 

TYPE  or  EQUIPMENT  BEINR  SUPPL1E0. 

000  5 7( 

23 

C 

0005  77 

23 

RC  AO  IIS*  1000  1 ATRItl  (»  .A  TRIO  11  I#  ATRItf  31  *8  TRIO  19  It  RTRIOf  71 

0005  78 

23 

RRITCI  NPRNT*  19791  ATRI  •(  ( | . A TR  I«  11  1 • ATRIH  11  tATRIR  15  It  ATRIRI  71 

000579 

23 

290 

CALL  FILCNfl  1 

000580 

23 

291 

CONTINUC 

000581 

23 

RCHINO  15 

0005  87 

23 

1000 

fORNAT  1 10X.NI  78.0  t2I|  | 

000583 

23 

1010 

rORNAT  ( 10X#(f  IB  #2X1  I 

000589 

23 

1020 

rORNATflX#  A(  I 

0005  85 

23 

1 

rORNAT  1 IHlt  * ••##«#•#  ##  SU  as  OUTTNC  INTLC  CALLCO  AT  TlftV  - •# 

OC05  8( 

23 

75.0#  • • ••#*••••••  | 

0005  87 

23 

103  0 

rORNAT  1 1C  1 

000588 

23 

Cl  03  1 

FORNAT  !////✓  • <<<<<<PT<<<<<<  «- PH  A>  >>>>»»  >>»  I’tABI 

000589 

23 

END 

INTLC  • 

MAIN  •• 

• •< 

# 

000001 

29 

0IHCNS70N  NS CT  f 10 GO 01 

000002 

29 

INCLUOF  COMMON 

000003 

33 

C 

THC 

UNIT  NUMBERS  * RE  13  70R  B2DI A8N0STIC  t 1%  • 2S  NORTH!  lift 

000009 

13 

C 

17 

TOR  82  0PT1MIZAT.#  AMO  IS  f OR  THE  INTLC  I^UT  DAT  At 

000005 

29 

NCR0R=5 

00  0006 

29 

NPRNT:  ( 

000007 

29 

PRINT  IB 

00  000 A 

33 

U 

70RMAT  f*  •••••  tttt#  START  OF  RUN  *M#t  #••##  ••#••• 

0000  09 

31 

«#/*  A8S0LUTT  RR08RAN?  NULTIRUM  #•••••••••••#•••••*••<•! 

000010 

29 

CALL  CRTRAM  f(  #9HR AS 0#  T 2.1 

000011 

29 

CALL  ERTRAN  f(#9M«AS6#T  3.1 

000012 

29 

CALL  ERTRAN  «»9M«ASG#T  9.1 

000013 

29 

CALL  ERTRAN  IB.9M0AS6.  T 7.  | 

000019 

29 

CALL  ERTRAN  f(#9MRAS«#T  8.  I 

000015 

30 

CALL  ERTRAN  f(  »9M8  AS  6#  T 9.1 

OOOOK 

29 

CALL  6 ASP 

0000  17 

29 

PRINT  IT 

DO  0018 

29 

17 

FORMAT  f*  #••##  #####  END  OF  RUM  •#•••  ••••**,  /1H1 

0000  1 9 

29 

CALL  CLOSTflTtZI 

0000  70 

29 

STOP 

000071 

29 

CMO 

MAIN  • 
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00  00  01 
00  000? 
000003 
000004 
GO 00 OS 
00  00  06 
000007 

oo  oo  o a 
00  00  os 
000010 
000011 
000017 
00  OC  13 
00001% 
0000  is 
0000  16 
000017 
000018 
0000 IS 
oocozo 
OOOOZ1 
00 002? 
wGQO  2 3 
0000Z4 
00  00  Z 5 
OOCOZ6 
0000 Z 7 
0000Z8 
0000Z9 
000030 
0000  31 
000032 
0000  33 
000034 
000035 
000036 
000037 
000038 
0000  39 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
00005S 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
0000  70 
0000  71 
000072 
000073 
0000  74 
0000  75 
0000  76 
000077 
0000  71 
0000  79 
00  00  SO 
0000  81 
0000  82 
000083 
0000  84 
000085 


06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

10 

06 

06 

06 

06 

06 

06 

06 

06 

08 

06 

08 

06 

08 

06 

08 

07 

06 

06 

10 

09 

06 

06 

09 

06 

06 

06 

06 

06 

06 

06 

06 

05 

06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
09 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 


SURNOUTI ME  ft  81  NT 


ttC  C?  1 1 » J RAllTCRAMCC  C8NTN8L  CENTER? 

1=1'  OS  NON COfW  AT 
1=2-  8 S NGNCOMBAT 
1=3  OS  CONBAT 
1=4  OS  COMBAT 
J=  1 8UC  UE  LEMBTM 
J=2  8UCUE  INPUT  rOB  CYCLE 
J=  3 BUEUE  OUTPUT  FOB  CYCLE 
K=  COMBAT  CBUZPMENT  TYPE 

INCLUDE  CONNONtLXST 

INITIAL  CUBBENT  CYCLE  INPUT  TOTALS 

DO  2005  J=  It  NT  YPCS 
BE  POUT  I J 1=0.0 
tiO  190  JJ=lt4 
190  HCC2(JJt2tJI3].0 
00  200  1=1  .NUN ITS 
C 

C APPORTION  LOSSES  TO  BEAR  OS  AMO  BS  MAINTENANCE 
C 

MCC2I1  •2.J)=NCC2I1,2.J  HDSNl  I.  J» 

RFSUPf  It  J.  II  =MESUP  II  tJ  tl  ItOSNI  I#  J» 

NCC2C2.2  .J|  = MCC?  12.2  .J  )«6SNt  It  J| 

RESUPf  It  Jt  II  =MESUP  (I  tl  |4BSNt  It  U| 

NCC2l3t2tJirMCC2l3t2tJ  HDSCI  It  J» 

BESUPf  It  Jt  II  =RESUP  ll  tJ  tl  MOSCI  It  J| 

NCC2l4t2tJI  = MCC2l4t2tJ  KBSClIt  Jt 
RESUPi  It  Jt  1)  =RESUP  II  tJ  tl  • ♦•SCI  It  J| 

200  CONTINUE 

TBSINI  J»=T6SDI  U I4NCC2  <2  1 2 tJ  )♦  NCC2  14  .2  .J  I 
RDSINI  J)=RDSIMIJ)«NCC2  II  *2  t J !♦  HCC2  1 3 »2  • J I 
2005  CONTINUE 
C«  WRITE  11  3.  1000  I 

1000  FORNATflXt«lNPUT  TO  REAR  REM  RIB  QUEUES*! 

DO  201  J=1  tN TYPES 

C8  WRITE  II  3t  1010  I Jt  7NCC2I  It2t  Jl  tl=li4l 

1010  FORMAT  1 1 Xt  *Y YPE=  •#  14  t*  QUEUE  I IP  UT  * 1 41  2X  tF  10  .2  tl  X I I 

201  CONTINUE 

C 

C COMPUTE  THE  OUTPUT  OF  M8INTENCF  FOB  TMF  CURRENT  DAY 

C 

00  220  J=ltNTYPES 

C INITIALIIF  OIRECT  SUPPORT  MAINT  output 
REPCAP=RCPRAT(  It  Jl 
C 4 WRITE  tl  3.  1020  I JtRCPCAP 

10?0  FORMATIlXt*  TYPE  =•  tI4#  • DS-REPC  AP  = * »F10  •?  I 
C 

C COftPUTf  OS  MAINTENANCE  OUTPUT 
C 

00  210  I =1 14  t2 
C 

C COMPUTE  OUTPUT  ONLY  IF  TMEIC  IS  BE  MAIN  IN  8 OS  CJT  ACITY 

C 

IFtREPCAP.ro  JJJ)  I 60  TO  210 

1030  FORNATIlXt*  ?YPC=*tX4t*  MAINT=  *t  lit*  QUEUE  =«  tFlR.f  I 

C 

C 80  TO  205  IF  EOUZPMENT  ANAITIMB  REPAIR  IS  B V AT  THAN  THE  KNAINZNO  OS 
C REPAIR  CAPACITY 
C 

IF  IRCPCAP.LT. 4 RAFACTfI»JI*NCC2  II  tltJ  II  IBB  TO  205 
C 

C CONPUTE  OS  NAINTENANCE  OUTPUT  FOB  THE  CASE  OF  HAVINB  FEMES  PIECES 
C or  E BU  IP  ME  NT  AMAZTIN8  REPAIR  THAN  TMf  REPAIR  CPACHY 
C 

NCC2  II  t3tJI=NCC2  tl  tl  tJ  I 
NCC2  II  tl  tJ  >=  0.  0 

REPOUT  tJ  It  RE  POUT  I J H NC  C2  II  tl  tJ  I 
BEPC  AP=REP  CAP- NA  FACT  IT  tJ  l*NC  C2  II  tl  .J  I 
Ct  WRITEtl  3.  1040  I JtItREPCAP.NCC2IItlt  Jl 

1040  TORN  AT  llXt  *TYPE=  *t  14  t*  NAINT.  TYPE  =*  tilt*  OS -REP  CAP=  • • FI  0.  2t 
1 • 8UEUE  LCNBTir  *tFl0.2l 
OTROSI  Jl  =0  TROS  I J M NC  C2  II  .3  tJ  I 
60  TO  210 


COMPUTE  OS  MAINTENANCE  OUTPUT  B**R  BS  REPAIR  CAPACITY  IS  9l«.LCR 
THAN  EBUIPNCRT  IRf AI TINS  REPAIR 

205  NCC2IIt3tJI=REPCAP/Ntr  AC  Tilt  Jl 
RE  POUT  I J )=  RE  PRUT  I J !♦  NC  C2  II  tl  t J I 
NCC2I1  tl  tJI=  NCC2I  It  It  Jl  -NCCZIXtl,  J| 

RE  PC  AP  =0.0 
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OOOOSL  09  CA  WRI7tll3.10«IJ.I.Rn»C*r.HCC2ri.i.J» 

000067  06  QTR05I Jl  ^OTROS  IJ  )*NCC2  IX  »J  t«J  t 

000066  06  210  CONTINUE 

000089  06  C 

000090  06  C INITIALIZE  6S  REPAIR  CAPACTTT 

000091  06  C 

000092  06  REPeAPrREPRATt2*J|-8SS«RS 

00009)  09  C«  WRITEI13.1090  Kf.REPCAP 

00  0 0 99  0 6 1 05  0 f ORHATI 1 1.  • T YPE=  • • I)  *•  • S-REPC  AP  =•  *F  10  .2  I 

000095  06  DO  220  1=2.9. 2 

000096  06  C 

000097  06  C IF  REPAIR  CAPACITY  IS  0-0  THEN  DONOT  OUTPUT  EQUIPMENT  FI  OR  PAINT  CM  AMCC 

000099  06  C 

000099  Of  IfIRCPCAP  .LE.  0.0  >00  TO  230 

000100  06  C 

000101  06  C IF  OS  MAIMTCMAMCC  CAPACITY  LESS  THEM  EQUIPMENT  ANAITIN8  REPAIR  00T021S 

00010?  06  C 

000103  09  Ct  WRITE  113*1060  IJ  *1  *MCC  21  X*  1*  2) 

0001  09  0 6 1 060  F0RNATI1I**TYPE=**X).*  MAINT  TfPF=*#IJt«  RUEUE  =•  *F  10 .2  I 

000105  06  IF  I RFPCAP*  LT  •MCC2I  I«1»J1*HAFACTII.J|  I 80  TO  219 

00Q106  OK  C 

000107  06  C 6S  OUTPUT  WHEN  6S  REPAIR  CAPACITY  IS  OREATER  THAN  RuEUE  LEM8  TH 

000108  06  C 

000109  06  NCC2II*3»JI=NCC?II*1*J| 

000110  06  NCC2II.1*J>=0.0 

000111  06  REPCAP=RCPCA^-MCC2II*3»J>*RAFACTII*4I 

000112  06  RE  POUT  IJI=RCflBUTtJ)+MCC2IIt3*J) 

000113  09  C«  WRITCfl3»10'N>>J»l*RCPCAPtMCC2IT*ltJ| 

000119  06  1070  FORMAT  II  X.  •TYPE=».U.*  NAlNT  TYP£=*,I3*»  RS-  RCPC  AP=«  *F  10  ,2  • 

000115  06  1 • AUCUC-1.CM8TIC  a»Fl  O.  21 

000116  06  0T6SfJ>=0T8S|JI*NCC?  II.3.JI 

000117  06  60  TO  220 

000118  06  C 

000119  06  C 8S  MAINTENANCE  OUTPUT  IF  REPAIR  CAPACITY  IS  LESS  THAN  RUEUE  LENOTH 

000120  0 6 C 

000121  06  215  MCC2 1 1 *3  »J  )=NCPC  AP/RAF  ACT!  I»  Jl 

000122  06  RCPC  AP  =0  *0 

0001  23  06  NCC?fI*l*J|rNCC2II*l  *J  >- NCC2  1 1 .3  *J  > 

000129  06  RCP0UTIJ>=REP8UTUHHCC2fI*S«J| 

000175  09  CA  WRITE  113.  10  TSIJ.I.REPCAP.NCCZlIal.J) 

000126  06  0T8S*J|r0T6SUKNCC2lI»J*JI 

000127  06  220  CONTINUE 

00012A  09  Cf  WRITE  <13. 10  AD  > 

000129  06  10A0  FORMAT  <1  X*  *0UEUES  AFTER  MAINTENANCE*  I 

000130  06  CALL  0TNCC2 

000131  06  C 

000132  06  C INPUT  HEN  ITEMS  INTO  HEP  AIR  RUEUES 

00C133  06  C 

000139  06  DO  2 JO  J=l  .NTTPCS 

000139  06  00  2 30  1=1 .9 

000136  06  230  MCC2  < I .1  * J 1=  NCC2  1 1 »1  *J  A»NCC2  II  *2  •«!  I 

000117  09  CA  WRITE  II  1.109) 

00  01  36  06  1090  FORMAT  III*  •RUEUES  AFTER  NEK  INPUTS M 

000139  06  RETURN 

000190  06  END 
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nasuin 

OOOOOl 

07 

SUBROUTINE  NASUIN 

000002 

07 

INCLUOE  COMMON  »L  IS  T 

000003 

11 

C8 

MRlTC  111*  rOTLITNOU 

ooooo« 

07 

1*71 

000005 

07 

C 

00000 f, 

07 

C THTS 

SUBROUTINE  INCREASES  TMC  St  STEM'S  NAINTUI AMCC  Oil  SURRtf  C AP  ACI7T 

000007 

07 

c 

000008 

07 

N=IFIXI  ATR18I7  >1 

000008 

07 

IPIFZXUTRIOtf  8-S.OI 

00  0010 

11 

C8 

UNITE  <13.1*783  RC7R8Tll.il).  Rf  PR  AT  1?  »N  1 , PRRSRTIN),  DAWATIRI, 

CO  0011 

10 

e* 

1 8BR8 T(  Ml  »M»M 

000012 

07 

CO  TOI  100.20(^3001  .M 

000013 

07 

10  0 

RE  PR  AT  1 1 .Ml- HE  PR  AT  11  .M  H ATRIBI  51 

00001* 

11 

cs 

UNITE  1 13  .1 8781  RCPRATIltH).  ATRIBI5I 

OOUJ 15 

07 

RETURN 

000016 

07 

200 

RE  PRAT  f 2. N)  = RE  PR  AT  12  .M  >*  ATRIBI  51 

000017 

11 

CS 

UNITE  113.1*78)  RrpRATl2.Nl 

000018 

11 

cs 

RRITE  <13.19781  R CP  RA  Tl  2.  Ml  . A TR  IB  1 5 ) 

00  0018 

07 

RETURN 

000020 

07 

300 

PMRSRTlMI-PMRSRT  INI*  AT  HI  81  5) 

000021 

11 

cs 

NRX7E  (13.19781  P VR  SR  Tf  N|  .A  TR  IB  ti  ) 

0000  22 

07 

RETURN 

000023 

07 

ENO 

NASUIN 

OBJCT  ••••■ 

»• 

OOOOOl 

00 

SUBROUTINE  OBJCT  INfAN.Pt  AO.NNSAM) 

000002 

00 

INCLUDE  COMM®  »L  1ST 

0000  0 3 

01 

PA  VC  = TANK 

00000* 

00 

PVAR=1 

000005 

00 

A8SUC  -1 

00  00  OS 

00 

RETURN 

000007 

00 

END 

OBJCT  ••••< 

»• 

ONHANO 

OOOOOl 

03 

SUBROUTINE  0® ANOnOiKt  1. 0CLAT1 

000002 

03 

XNCLUOE  CO®®  .LIST 

000003 

03 

C 

00000* 

03 

c 

SUBROUTINE  0®AR0  RILL  CREATE  THE  00  M AN  0 ST  RE  MOTH 

FM  ON 

STATION  RUTS. 

000005 

03 

c 

IN  A DOIT  ION.  THIS  ROUTINE  SCHEDULES  THE  CO®  IT  RENT 

TO  THE 

000006 

03 

c 

STATION  UNITS 

000007 

03 

c 

000008 

03 

DO  10  I=1.NTTPCS 

000008 

03 

UNIT®  (NUN  IT  *J  .1  |:URITAUINWIT»MI 

0000X0 

03 

10  UNIT  ON  f NUNTT  .I*2)  = UNTTAU  (NUN  XT  «Y  .2  1 

ooooii 

0* 

TMTRSNlNUNir.il  z Q 

00001? 

03 

ATRIBI 2153.0 

000011 

03 

ATRIBI  1)  =T  NON*  Of  LOT 

00001* 

03 

ATRIBI  ICELOATINUNIT  I 

000015 

03 

CALL  rittMll) 

000016 

03 

c 

increase  os  maintenance  for  unit 

000017 

03 

c 

00  0018 

03 

00  *00  XS1.NNRTC 

0000  1 8 

03 

*00  IF  ITMTRSNIWNIT.S)  .C  0.  MAC  APT  (X  «l  )|§0  TO  *20 

000070 

03 

UNITE 1 6. *10)  RUM IT 

000021 

03 

RIO  FORMAT  <1 1.  *C®BAT  UNIT*.  15.*  NAS  NO  ASSOCIATED 

OS  MAINTENANCE*  1 

0000  27 

03 

RETURN 

0000  21 

03 

*20  JJ-NTTPf  S*  2 

00002* 

03 

00  *30  J=S*JJ 

000025 

06 

*30  UNTRACINUNTT.J>2|rNACAPT<I»2)*MCAFTfItJI 

U000  26 

01 

RETURN 

000027 

03 

CRO 

••••••  ONHANC 
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000001 
00000? 
000003 
000006 
000009 
000006 
00  0007 
000006 
000009 
000010 
DO  0011 
000012 
000013 
000016 
000015 
000016 
000017 
00  0018 
000019 
0000  70 
000021 
00002? 
0000  23 
0000  2* 
0000  25 


000001 
000002 
000003 
000006 
000005 
GO  00  06 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000016 


01HCC1  •••••• 

00  SUiROUTI NF  0TMCC1 

00  C 

00  C THIS  SUBROUTINE  OUTPUTS  THE  fit RAT  HCC1  INTO  THE  OlfBNOSTXC  FT  t 

00  C 

01  lMCLUOf  COMMON  .LIST 

0 0 00  1 00  1=1  .MUNI'S 

06  C9  WRITE  11 3. 10 OB  I 

00  1000  FORMAT I1X.  *HCC  1 FOR  (MIT  HUH  BCR  ••III 

06  C9  tfRITEI13tl01DHMCCl  II.J.1,11#  JZ1.NTTPESI 

00  1010  FORNATIlXt •NONCONBAT  LOSS  BUEUr* /1 21 IX  »F9.  21  | 

06  CS  WRlTEUS.lOJD  MMCC1  II  <J  .1  .2  I.  .T l.NTVPESI 
00  1020  FORMATIlXf  •COMBAT  LOSS  BUCUC  */ 1?  I IX.  F9  *2  II 

06  C6  WRITE  II  3*  10  3D  If  MCC1  fl  4J  *2  >1  >•  .T  It  NTTPCS  I 
00  1030  FORT  'T  11  X.  *NONCOMB  AT  BOCUC  OUTPUT* /121 13  *F9.  21  I 

06  Ct  WRITEI13.1O60  IIMCC1  «I  AJ.2.21.  jrl.NTTPESI 

00  1 060  FORMAT  UX. 'COMBAT  BUCUE  OUTPUT  */12  I1X.F9  »2  It 

06  C6  HRITEI13.1050  MMCC1  II.U.3.1  ).^1*NT7PES) 

00  1050  FORMAT  fix*  *NBNCOMBAT  BUCUC  I IT  Uf  */l2  II  X.  FB  .2  II 

06  C6  WRTTEI13.1060  MMCC1  1 1 «U  • 3 .2  I • ^ 1 • NT  TP  CS  I 

OB  1060  FORMAT  1 1 X*  *C  ON  BA  T BUCUC  INPUT* /1 21 IX  »F  9.  21  I 
06  Cf  WRITE  111.  10T0ltUNlT0HretJ.il*  jrl.NTTPESI 

00  1070  FORMAT  111*  *UNIT  STRC NO TM */ 12  111,  F9.2  II 

01  100  CONTINUE 

00  RETURN 

00  END 

0TNCC1  •••••• 


0TNCC2 

02 

01 

01 

05 

01 

05 

01 

01 

01 

05 

05 

01 

01 

01 


SUBRQUTTIC  0TMCC2 
INCLUOF  COMMON .LIST 
DO  200  jn.HTTPCS 
c«  WRITE  II 3. 20 IB  I J 
2000  FORMAT  III#  *TTPC=  ••  IB  I 
Cf  WRITE  11  3*  2100  II HCC1  II  .1  .J  I.  1=  l.*l 

2100  FORMAT  I IX.  *B0EUC  LENBT  H*  .51.  6C  F10.2.  S3  1 1 
2200  FORMAT  I IX.  *OUEUC  INPUT  • *51*  61  F10. 2.  JX  1 1 
2300  FORMAT  II X.  'QUEUE  OUTPUT*  »5X.  61  FJ.O. 2*  3*  1 1 
Cf  WRITE  II 3.  2200  HHCC2  It  .2  .J  l«  1=  1*  81 

Cf  WRITE  II  3. 2300  IINCC2  (ItliJltUMI 

200  CONTINUE 
RETURN 
ENO 


0TMCC2 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
00  00  08 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
00  GO  17 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
0000  25 
000026 
000027 
000028 
000029 
0000  30 
0000  31 
000032 
000033 
0000  34 
000035 
0000  36 
0000  37 
000038 
0000  39 
000040 
000041 
000042 
000043 
000044 
000045 
U00046 
000047 
000049 
000043 
000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 
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OTPUT  •••••• 

00  SUBROUTINE  OTPUT 

00  INCLUDE  CONNOR  »L  IS  T 

00  PRINT  99  »T NOW 

00  99  F0RN8T  I lHlt  *» ••••SUBROUTINE  OTPUT  CM. LCD  AT  TNOM  = »•  F5.Q  • 

00  2 ••••••*//! 

00  MRITEI  6*  100) 

00  100  FORNATIll«*T»C  THTRSH  IS  *» 

00  00  1000  1=1. 1U  NITS 

00  1000  MRITEIBtllOl  ITNTRSNI  I*  Jl  t J=1  #1  I 

00  110  FORMAT  I IN  . 8 IF 9.  3.  1X1  | 

00  MIITEI6tl20l 

00  120  FORMATIlXt  *TNC  UNIT  AUTHORIZE  STRCNBTHS  MIC*  I 

00  00  1100  I-  1 • NUNI TS 

00  1100  WRITCIStllOl  84  UNIT  AU  II  tJ  tK  It  It  NTYPCS  1 1 N=  It  31 

00  NRlTEI6tl30l 

00  ISO  FORMAT  1 1 It  *TME  ONMAND  UNIT  STRENBTH  IS* I 

00  DO  1200  X=  ltNUNlTS 

00  1200  MRITCI6tU0l  PI  UNITCH  II  tJ  tK  U J=  It  NTYPCS  I • K=  1*21 

00  WRITE!  6*  1401  ICOMRATI  II  .1  =1  tNTYPf  SI  t I NCNR  AT  • 1 1 • 1=  It  NTYPCS  I.  I 

00  1 PERRAT  ( I l»I=l«  NTYPCS  It  IUNREP  II  It  1=  it  NTYPCS  It  IOANRATIII  tl=l  tNTYPCSI 

00  2t(  ASRATIII  .1=1  .NTVPESI 

00  140  FORMAT  lilt  *TNC  COMBAT  LOSS  RATE  IS  ••F10.W  II  t*  THE  NONCOMBAT  LOSS  R 

01  1 ATE  IS  * t F10«  5/ II  •*  THE  PERSON* 

01  2 *NCL  LOSS  RATE  IS*  tF  10  .5/*  THE  UNREPAIRABLE  RATE  IS  *tFlO.  5/ II  t 

01  1 * THE  DANA  BE  RATE  IS  *t  FlO*  5/11 1*  THE  ABANDONMENT  RATE  IS*tFl0.5l 

00  MRITEI  St  1501  TIRE  PR  AT  I J tl  It  1=  It  NT  YPCS  It  «l=  It  21  tl  PRRSRT  1 1 It  1=  1. NTYPCS 

00  II 

00  150  FORNATfll.  *TIC  REPAIR  RATE  IS*  tF35  .5 *21* FlO. 2/11 1* THE  MAR  RESERVES 

00  1 SUPPLY  RATE  IS*tFlQ«2l 

00  MRITEI  St  1601 

00  160  FORMAT  1 1 It  *THE  MAR  RESERVES  STOCKS  ARE  * I 

00  MRITEI  6 1 1101 IPNRSI II  *I=ltNTYPES|  tl  PMRSIM  II  It  I=ltNT  YPCS  I 

00  MRITEI 6t 1T0I 

00  170  FORMAT  III*  *TME  THEATER  SUPPLIES  ARC*  I 

00  MRITEI  6t  1101  ITSTOCNI  It  Jl  tJ=l  tNTYPCSI 

00  MRITE  16  tl  10  I ITST0CKI2t  JltJritNTVPESl 

00  MRlTftttlBOl 

00  180  FORMAT  1 1 X»  *T  HE  THEATER  PERSONNEL  POOL*  I 

00  MRITEI  6t  1101  ITPERSI1  tJ  It  J=  It  NTYPCS  It  IPERSINI II  tl=l  tNTYPCSI 

00  MRITE  1 6 tl  10  I ITPERS  12  tJ  I.  it  NTYPCS  I 

00  MRITEI  6 1 1901  OLYSTAtOLY  CON.  OLYPOMtOLYHOS»OLVPCRtOLVSUP 

00  190  rORNATtll.  *ONSTATlONt  PONCUSt  CONUSt  HOSPITALt  PERSONNEL  RESUPPLYt 

00  1 AMO  RCSUPPL*  DELAYS  */ II  tlOIFS.l  till  I 

00  MRITEI  6. 2001 

00  200  FORMAT  III.  *0S  CAPACITY  LOOK  UP  TABLE*! 

00  DC  1300  1=  1.  NMATC 

00  1300  MRITEI6tllOI  iNACAPTlIt  JltJ=ltll 

02  CALL  CMFCKI2I 

00  WRITE  16.101  T NOW 

00  10  FORMAT  I*  THE  SIMULATION  HAS  ENDED  AT*tFlS.ll 

00  PRINT  2020tlBDECIKItK=ltSI 

07  2020  FORMAT  I*  THE  VALUES  OF  THE  DECISION  VARIAM.ES  ARE  *. /t«l  21  .P  10*1  II 

00  PRINT  2021  tT ANKt BS 

02  2021  FORMAT  I*  THE  NUMBER  OF  CORN IT FO  TANK  OATS  TS  *fPlO#l*/ 

00  ♦ • AMO  THE  SIZE  OF  A BS  UNIT  IS*tF10«6l 

DO  RETURN 

00  END 
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OOQ1 

OOO? 


COHHON  PROC 

c 


COO  3 

PARAHFTER  U- 

35 1 T=3 

t K=T  *2 

Of)  ON 

C 

0005 

c 

u 

IS 

THE  NUH8ER 

or  UNITS 

IN  THE 

0006 

c 

T 

IS 

THE  NUNBER 

OF  TYPES 

IN  EACH 

00  07 

c 

s 

IS 

THE  NUNBER 

CF  ROWS 

IN  THE  LI 

0008 

c 

0 

THE 

NUHBER  OF 

OATS  THE 

SINULAT 

COOS 

c 

THESE 

PARANETERS 

HOST  SE 

CHANG  CO 

0010 

C 

IS  CHAN6C0.  ANO 

THEN  N. 

L SUB- PR  1 

S=70»  0=60 

put  deck:  u=n  units 
NIT  or  THE  INPUT  DCCKJ 

n— up  table:  senate 

N IS  PUN  fon:  d=*dav 


ON  TYPES 


0012 

COHHON  / ANN  AVI 

/ ASRATITI. 

0013 

BACKLQIUtTI • 

8 ACKPL  ( U.  Tl  t 

SUFPRN  (Tit 

001* 

COHRATITI, 

COHLOS(U.T) t 

CREH  AV  (Ut  T It 

CREKLSlUtTI  t 

0015 

CRHLSRITI t 

CRMPFRITI  . 

00  16 

0 AN  RA  T ( T I t 

OAYLOSf  T|  . 

DSCCNI  Tl. 

OSH  CHIT  I. 

0017 

OSREPBI T | . 

OSC  (U.T  I. 

DSN(UtT|  t 

0018 

GSCOHITI. 

QSNCHfTIt 

BSSEPB  IT  1 1 

0019 

GSCIUtTIt 

6SNIU.T  I. 

0020 

MOS  PE  R ( T I , 

HSSPTNITI  t 

0021 

NACAPTfS.  HI. 

NAF  ACTt  A.  T|  . 

NCCll  U.  T.It  21 1 

00  2? 

• 

NCC?(  *•  J.TI  • 

0023 

9 

NCHLOSlUt  Tl. 

NCHRATf  T| 

00  2* 

COHHON  / ARRAY 2 

/ 

0025 

PERFACITI . 

ptrlosi  rr* 

PERRATITI. 

PERSENIU.TI  t 

0026 

PERSTNITI t 

PRHLOSITI  t 

PMRSITlt 

PNRSHRITI  t 

0027 

PHRStNITI  . 

PHRSOUl Tl • 

PMRSRTITIt 

00  28 

REP  AT  R ( %. T|  • 

RCPOUTITI t 

REPS  AT  12 1 Tit 

00  28 

RESUP (U.T .21. 

RESUP  Al  Ut  T.  21 

t RFSUP0IU.T.2I. 

00  30 

SUP  EA  C (Tit 

SUPSENIU.TI  t 

0031 

TBCRLSITI t 

TNCKPLITI  t 

ICON  IT  |. 

TMTRSmUtAI  t 

0032 

TLOSf  Tl . 

T NC  H(  T 1 . 

TOTLOSlU.TIt 

TOTPCRI Tl  . 

DO  3 3 

TOTSTKITI t 

TPERLSITI  • 

TPERSI  2tT»  t 

TPRSENITI  • 

003* 

T5PN0TITI • 

TSPSENl  T 1 t 

TSTOCK  12  tT  It 

TRANSTITI  t 

00  35 

UNE  CONI  T 1 t 

UNE  CRT  I T|  t 

UNITAU(UtTt2lt 

UNI TO HI U t T. 21 t 

von 

DOTS 
00  39 
0C*0 
00  *1 
00*2 
00*3 
CO** 

oo*s 

00*6 

00*7 

00*8 
00*8 
OUfO 
0051 
00  52 
0053 
005* 

0055 

0056 

0057 

0058 
0058 

or.  60 
0061 
0062 
0063 
006* 

0065 

0066 

0067 

0068 
0068 
00  70 
0071 


COHHON  / SS6YE  / DPV  API!  71  .OPY  AR2(  61  .OPYARUM  .QPYARMM  tOPY  «5t  31 

COHN  ON  / CHECK  / HOSPITt.  0T6SITI.  OTROStTI.  OTUNOSfTIv 

1 PER  *RRI  Tl  • PTRANSITIt  ROSIN  (Tit  SUPTOTITlt  T8SIHITI. 

2 UNOSINI  T I • KARNES  (T|«  INIUtO.TI.  0UTI21.0.Tlt  DELTA!  3.0*  T»  • 

3 Q CAP  ( 3 . D. T I 

COHHON  / TOTS  / NUNITS*  NT  YP  ES  • NR  At  NT  t NNATYPt  NSPUHT  * HSPTYP 


COHN  OH  / NON  ARR  /OAYPBH.  9LVSTA.OLYPOH»OLVCON* 

1 OOAV.  CLYHOS  *OLY  SUP.  DL  VPER  .0  LY  HA  I.  KO  AY  »NHA  TE  » 

2 PERNS 


COHHON  / 6 CO  HI  / ATRIBf  25  )•  X VM  T.  tW  At  NFEI 1001  .NIX  (100  I.  NSTOPt 

2 NCR0R.NNAP0.NNAPT.NNATR.NV2L  .NNO  II CO  I.HNTR Y. IT RNT. 

3 PPA  RH  (SO.  *1  tTNOK.  TTBEBt  TT  CL  Rt  TTFIMt  TTRIBI  25  1 1 TTSET 

COHHON  / 6C OH 3/  A AC  NB  .0 THAI  .0  TW III  tOTS  A?  tUTES tLURR  tL LSAf  tLLSEV  .R RES 
1RR  tTTL  AS  tTTSAV 

COHN  ON/6  OP  T1/1PNT.8P  THUH  »J  JO  LD  *NNO  LD  *ODOLD  (60.  71  .NMOEC  tLLDEC  IS  .2  I SOPTl 
1 .NOPTNR.PAVS.LNBP.LUBP.LllPtLTBPtLSPTtLUSPtLlSP.  LOPT  .HNNXtSSTPS.  SOPTl 
2TTCAR.DXRECT»TTFST  tTTBTM.OOECISl  SOPTl 


COHHON  / TANKS  / TANK.SS.8SS 
esuivalence  iooeci  n .RELOC  I.  IDOCCI  21  .OSUSI 


COHHON  SSETI 1000  I 
EQUIVALENCE  (NSE  T(  II  .SSETI  1|  | 


REAL  N AF  ACTt  NACAPT  #NCNLOS.  NCHR  AT  tHCCl.NCC2.IN 


00  72 

1976 

FORHAT 

1 1 

007J 

1977 

FORNAT 

1 10810.*! 

007* 

197  8 

FORHAT 

1 1015! 

00  75 

1979 

FORHAT 

1 1 

00  76 

CNO 

1 

2 

1 
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. MSERV  •••••• 


000001 

00 

SUBROUTINE  RESERV 

000007 

00 

INCLUDE  COMMON  .LIST 

000003 

01 

ct 

WRITE  I1J.  1971ITN0W 

00000% 

00 

t 

ocooos 

no 

c 

000006 

00 

c 

THIS  SUBROUTINE  MB  MILES  RESUPPLT  Qf  CONUS  *1  SERVE  PC  RSCNNCL  TO  THEATER 

000007 

00 

c 

PERSONNEL  POOLS 

oouoos 

CD 

e 

000009 

00 

«=IFIXMTRTB  U II 

00001C 

01 

Cl 

WRITE  <13.19791  PER  SINf  N| 

00  0011 

00 

prRSlN<NI=PERSlN<NI«ATRIBI  5l 

000017 

01 

ct 

WRITE  <13.19791  PERSIN<N»  .AT«IB<5  1 

000013 

00 

RETURN 

00001% 

00 

END 

RESERV 

• ••• 

SS8VE  < 

OOOOOl 

27 

subroutine  ssave 

00  0002 

27 

INCLUOT  COMMON .LIST 

000003 

28 

NAMELIST  /OUTPUT/  0PVAR1  .OPV  AR  2«  OP  VA  Rl  .0  PV  AR%.  OP  VARS 

00000% 

27 

WRITE  <13*  1971ITN0M 

00  0005 

27 

1971  EORNAT  <•  •••••SUBROUTINE  SSAVC  CALL  ED  AT  *.710.1.  • ••*••*! 

000006 

2 T 

C 

000007 

27 

C 

ZERO  LOCAL  VARIABLES 

000006 

27 

c 

000009 

27 

do  i in  .A 

000010 

31 

0PVAR%fTl=O. 

000011 

27 

PPVARI  II  )=0. 

000012 

27 

0PVAR2  <1  1- 0. 

000013 

27 

1 DPVAR3  < I 1=0. 

0000 1% 

23 

OPVAR\<5>-0. 

000015 

27 

0PVAR2  <5  1=0. 

000014 

27 

0PVARK6  | = 0. 

000017 

30 

PPVAR2  <6  1=0. 

000018 

27 

DPVAR1 17 1=0. 

001*0  19 

28 

DP  VARS  ( 1 1=0. 

0000  20 

28 

DPVAR5<2  1=0. 

000021 

28 

OPV ARS  < 3 1=0. 

OOOQ22 

27 

c 

000023 

27 

c 

6RAPH  NUMBER  1 BREAKS  THE  CONNITJED  HARDWARE  INTO  ITS  LOCATION  IN  THE 

00007% 

77 

c 

HOOEL. 

0000  25 

27 

c 

000026 

27 

00  100  un.NTTPfS 

000027 

27 

OPVARKlir  PNNL  OS  < Jl 

000028 

28 

c 

0PVARK1I  IS  THE  CUHULATIVE  NUMBER  OF  PERMANENT  E8UIPMCNT  LOSSES. 

000029 

27 

c 

000030 

27 

c 

0000  31 

27 

PPVARI  <2  1 = OP  VA  R1  12  !♦  TS  TOCK  <1  .J  !♦  TSTO  CK  <2  ,J  1 

000032 

27 

c 

DPVARK2)  IS  THE  QUANTITT  OF  HAROWARE  IN  THE  THEATER  STOCKS. 

000033 

27 

c 

00003% 

27 

DPVAR1  < 3 I = DFVAR1  < J !♦  PWRS  < J 1 

000035 

27 

c 

0PVARK3I  IS  THE  QUANT  IT  V OF  EQUIPMENT  IN  VAR  RESERVES, 

U0U036 

27 

c 

000037 

29 

00  201  in.NUNlTS 

OQOU38 

28 

c 

0000  39 

28 

DPVAR1  <%  )=DPVAR1  <%  !•  UN  IT  AU  <1  , J .1  1 

0000%0 

78 

c 

OP  VA  Rl  < % 1 IS  THE  LEVEL  OF  NJTHORIZED  EQUIPMENT.  IT  SMOULO  BE  A CONSTANT 

0000%  1 

28 

c 

0000  %2 

28 

0PVARl<5l=0PVARl<5MUMn0H<I.J.l  I 

000U%  3 

28 

c 

OPVARKSI  IS  THT  QUANTITY  OF  COMMITTCO  MAROVARE. 

0000%% 

28 

c 

0000%  5 

29 

2U1  CONTINUE 

U000%6 

28 

OPVARl  <61=  UMECON<j» 

00  0U%  7 

28 

c 

DRVARK6I  IS  THE  BUAN  T IT  Y OF  HARDWARE  THAT  IS  UNECONOMIC  AL  LT  REPAIRABLE, 

nooo%% 

27 

c 

00 00% 9 

78 

PPVARI  »7|=TRANST<J  | 

0000  50 

27 

c 

000051 

2§ 

c 

OPV  ABK  71  IS  THE  NUMBER  OF  TANKS  IN  TRANSIT 

000052 

27 

c 

000053 

27 

100  CONTINUE 

00005% 

- a 

CALL  GPLOT  IDPVM1.TN0M.1  1 

000055 

27 

c 

000056 

27 

c 

GRAPH  NUMBER  2 SNEAKS  00  MM  THE  ORIGIN  OF  COMMITTED  UNITS. 

000057 

21 

c 

000058 

27 

DO  101  1=1, NON  ITS 

000059 

30 

If  < TMTRSN  < I .2  I ' 11  1U.111.UI 

000060 

27 

c 

SS8VE  . 

••  •• 

• • 
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• •••  SSAVC 


000061 
000062 
OOOOb 3 
00006% 
00  00  65 
00  0066 
000067 
00  00  6 S 
000063 
0000  70 
0000  71 
0000  72 
00  00 J 3 
00007% 
00007S 
0000  76 
000077 
00  00  78 
0000  79 
0000  80 
0000  81 
0000  82 
000083 
0000  •% 
00  00  65 
0000  86 
000087 
0000  88 
000089 
000090 
000091 
000092 
000093 
0000  9% 
0000  95 
000096 
000097 
0000  98 
0000  99 
000100 
000101 
000102 
000103 
00010% 
000105 
00U106 
00  0107 
000108 
000109 
000110 
000111 
000112 
000113 
00011% 
0001 IS 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
00012% 
000129 
000126 
000127 
000128 
000129 
000190 
000131 
000132 
000133 
00013% 
000139 
000136 
000137 
000138 
000139 
nnni  %n 


7 C If  I -I  THEN  UNIT  HAS  NOT  ARNlvEO. 

7 C IF  101  THEN  UNIT  IS  CONHITTCO. 

7 C IF  1*1  THEN  UNIT  IS  CONHI TTEO  A NO  MAS  AN  ON  STATION  CANNOT  UNIT  * 

7 C 

7 112  DPVAR2I1  ) = DPVAR2ll  H U*T  TO  * 1 . 1 . 1 » 

7 C DPVAR2  TS  THE  OU  ANTI  TT  Of  ON  STATION  UNITS* 

7 C 

7 80  TO  115 

0 113  DPVAR2I2»=0PV1R2I2H  U«I TO*  I*  1*  1 1 

7 C DPVAN2I2I  IS  THE  8 UA  NT  ITT  OF  POHCUS  UNITS* 

7 C 

7 SOTO  115 

7 11%  DPVAR2I3K0PF1R2C3H  UNI  TO*  I*  1*11 

7 C OFVAR2I3I  IS  THE  8UANT  IT  Y OF  CONUS  UNITS* 

7 C 

0 115  IF  ITHTRSHIItl  )*(0  *2  I DPVAR2ISI  Z 0PVAR2fftl*l 

Q IF  ( THTRSN  11*1  I*  C 8 >2  • 0PVAR2«6l  = DPVAR2  «6  MUNlrON  (I  *1  *1  I 

0 IF  ITHTRSNII*!  I.EO.l  I 0PVAKJM6  I Z OP  VAK2  <%  l«  UN  IT  ONI  l *1  »1  I 

0 C 0PVAR2I5)  TS  THE  NUH8EH  OF  CONHlTTFO  UNITS 

0 C OP  VA  R2 16)  IS  THE  ANT  OF  CNUIPNENT  IN  TMF  CONNlTTfO  UNITS 

0 C OP  VAR2 1 % I IS  THE  ANT  OF  ENlflPNrNT  IN  UNCWNITTFO  UNITS 

7 C 

7 101  CONTINUE 

7 CALL  6PL0TI0PVAN2«TN0H*2  I 

T C 

7 C 6RAPH  NUHOFR  3 
T C 

• DO  120  J-l  *NTf  PCS 

• 0PVARJI1  |=DPV«R1<&  !•  tPHMLOST  Jl  - NFHIAUl  I 

8 C DPVAR3III  TS  THE  NUMRC R OF  PERMANENT  EOUIPNENT  LOSSES  NT  OAT  • 

1 C 

7 DO  119  1=1  » NUN  nS 

7 119  0PVAR](2I  = DPTAR3I2  » « CONLOSII*JI  « NCHLOSIT.JI 

7 C THIS  IS  THE  NUHOER  OF  TOTAL  OAILT  LOSSES  CSCE  REDEFINITION  OF 
T C OPTAR332I  BCLOMB. 

7 0PVAR3 1 3 | : 0PVAR3I3I  ♦ REPOUT  I J | 

7 C DPTARJI3I  IS  THE  HAIOTATNENCE  RETURNS* 

T C 

7 DPTARJ  |%  | r OP  VAR3  1%  I ♦ PURSOUIJI 

7 C DP  VA  R!  | % I IS  THE  U AN  RESERVE  ISSUES 
7 C 

7 120  CONTINUE 

7 C 

7 CALL  6 PL  OT  I 0PVAR3  *TNOU*  31 

7 C 

T C GRAPH  NUHOER  % 

7 C 

7 00  116  J=1  # HIT  PCS 

7 DPVAR% 111  = OPVARA  til  ♦ TSPSCNIJI 

7 C OP  VARA  II)  TS  THE  HUNRER  «F  TANKS  ISSUCO  FR*  TINA  TER  STOCKS* 

7 C 

7 DP  V AR%  12  ) r DPVAR6  12  I ♦ TSPNOTIJl 

7 C OP  VARA  IS  THE  HUNRER  OF  TANKS  WITHOUT  A CREW  AVAILABLE  • 

T C 

7 00  116  1=1  «H  UNITS 

II  OPVARA  111  I RP  VARA  I)  | ♦ CKEM  «V  1 1 *J  l/%* 

1 DPVARAfA  | = OPVAR%  1%  H tUCKLR  II*J  I 

1 116  CONTINUE 

7 C OPVARA  131  IS  THE  'lVAIL  AALf  CREW. 

7 C 

• C •••••••••*••••••*>••••••••••••••••••• 

6 c MMMMMMM  KN  ARM  6 

R ( 

• 00  6 I17=l»N0NnS 

• DO  6 J\lz\  tNTTPCS 

• e 

9 DP  VARS  111  : OPVARSfll  * NCC1  II  If  *J17  *1  *|  I ♦ NCCl  1 11?  • Jtf  *1  *2  I 

• C OP  VARS  1 1 I TS  THE  QUEUE  LENRTH  FOR  DIVISION  RAIN  AINENCC* 

• C SEE  PROORAN  UNHA  IN  FOR  TIC  OCFDlJSTTM  OF  INC  *»C1  VARIABLE* 

• C 

9 0PVAR5I2I  = OP  VA  RS  12  • *>  NCCl  <1  *1  »JI7  • ♦ NT.C2  13  »1  • JIT  I 

• C OP  VARS  12  I TS  THE  OUfUf  I ZNNTN  FOR  RE  AN  OS  NAXNTAINENCE  • 

• e SEE  PROORAN  NAINT  FOR  T <F  RCFINITION  OF  TNE  NC C?  VARIARLC. 

• c 

9 6 OP  VARS  (31  : OP  VARS  131  ♦ NC  C2  12  *t  . J IT  » ♦ NCC2  1%  *I.J1T  I 

• C OP  VARS  I 3 I IS  THE  OUEUE  LENRTH  FOR  OS  NAINT  Al  HENCE* 

• C SEE  PKOOKAN  NAINT  EON  THE  DEFINITION  OF  INC  NCCl  V AR  IAflLf . 

• C 

9 CALL  iPLOTIDPRARS*TNOU*SI 

7 CALL  0PL0TI0PVAN%*TN0N*%  I 


SSAVC 
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ssm 


0001*1 

27 

C 

0001*2 

27 

CALL  C0tCTI0WWKll.il 

0001*3 

27 

CALL  C0LCTI0WAR1I2I.2I 

0001** 

27 

CALL  COLCTtDMMlI  II  •]  1 

0001*5 

27 

CALL  COtCT  I0WU1III  •*  1 

0001*6 

27 

CALL  C0LCTIDKH1R1ISI.SI 

0001*7 

27 

CALL  C0tCT10WWlltl.il 

0001*8 

27 

CALL  COLCTIOPf  AR1ITI  •?  1 

0001*9 

27 

C 

000150 

27 

CALL  C0LCTI0WAH211l.il 

000151 

27 

CALL  COtCT  IO«r*H2l  21  *1  1 

00015? 

27 

CALL  C0LCT10WAH21  SI  .101 

000153 

27 

CALL  COtCT  *.DWA02I*|  .111 

00015* 

27 

CALL  C0LCM0WAR2I5I  .121 

27 

c 

000158 

27 

c 

MU  IT  C OUT  THC  (MIASLCS  TO  CMCC*  TlCTN  ACCUOACT. 

000157 

27 

c 

000158 

27 

WRITE  113. OUTPUT! 

000159 

27 

c 

000160 

27 

c 

THAT  *5  ALL  FOLKS 

000161 

27 

c 

00016? 

27 

RETURN 

000163 

27 

ENO 

SSAVE 

»•  •• 

• • 

TWSTOR 

• •• 

• • • 

000001 

OP 
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oooo c 7 is  iFiNCPCAp.Lf Jijofoie  20 ■ 

000081  IS  c 

0000  19  IS  C OUTPUT  NfPATNABLC  CO  MAT  LOSSES 

000090  II  c 

000091  IS  KCltIiJ«2*2)NllNUCKN/«IF«CTI)iJI»llttllI»J(li2li 

00009?  IS  1 CNCf  AVI  I.  Jl /CMPCPI  J»  I 

000091  IS  CNtUAVtl.,l>  = CNCUAVtI.J>-llCClll..>.2«21»Ci*CNIJt 

OOOC  99  IS  CTUNOS  fJI-OTUNO.IJHNCCllI»J.2*2) 

0000 'J9  IS  c 

0C0099,  is  c xncncasc  cunnulative  unit  os  mint  input  total 

000097  IS  C 

000098  IS  UNIT0MII.J.1  UN  I T OH  II  .J  .1  >♦  RC  Cl  1 1 • J .2  .2  I 

000099  IS  NCC1II.J»1.2»3NCC1  IX.J»l  .f  t-NC  Cl  1 1 »J  .2  .2  I 

oooi ao  is  no  continuc 

000101  IS  C*  UNITE  11  3.  9010  I 

000102  IS  9090  FONMATfll. *NCCl  AFTER  OJEUE  PROCESSION •» 

OOOI 0 I 13  CALI  0TNCC1 

000109  IS  c 

000109  IS  C IN  CNI A SI  TNF  RUCUCS  KITH  T W CUN  Of  NT  CTCLF  LRSStS  V P0SSIW.E 

000109  IS  c 

0U010F  IS  00  100  jrl.NTTPCS 

ON  01  08  IS  M SOD  in.  NUN  ITS 

000109  IS  IPlTKTRSRI  I.|>  .LC.O.  *0  Ti  Stt 

000110  IS  RE  PC  AP  =2.0 •UNTMACt  I.  Jl 

000111  IS  IN  I RfPCAP.Cl  «0  «0  If  0 TO  SOP 

000112  IS  RCPCAP=R(PCAP-*CC1  IIiJ.ltll*MriCTIltJI-KCllItJ»l»2l*NriCTlI.J| 

000113  is  IflNCNCAP.LC  JDJOl  NO  TO  300 

000119  IS  UCCKI.j.ltllNIIllIfKO/ANlCTU.JliDSRIItJII 

000119  19  PSNlItJIzOSNil.'ll-NCCl  II  .J.Stl  I 

000119  IS  NCCllI«J*l«lV-IVCClfI»^.l»SI#NCCllItJ»l*l| 

000117  17  R(PCAP=RCPCAP-NCC1  fl.J.l.l  l*NAPACT  ll  ) 

000111  IS  UNOSXNtJI=U«OKHll.l»MlCC\l*»4»S»\l 

000119  IS  C 

OOOim  is  C INCNCASF  UNIT  DS  NAINT  OUTPUT  TOTAL  ICUNNULATIVf  I 

000121  13  C 

0001 22  IS  XFIRCPCAP.LC  JUl  NO  TN  900 

000121  13  RCC1 1 1 .J  «S .2  K=HlN<  NCPCAN/NW  ACTS  S.  J)  »OSC  II  *J  )l 

000129  IS  DSClI.  JI=OSCII.J  1-NCC1  fl»j.3.2> 

000125  13  NCC1 IX .J .1 .2  I=NICC1  (I.J.1»2I«NCC1(I»J.).2I 

000129  13  UNDS1NIJ 1-UN05  INIJ|0NCC1II.J»J*2| 

000127  IS  C 

000121  IS  C INCREASE  UNIT  OS  NAINT  OUTPUT  TOTAL  ICUNNULATIVf  I 

000129  13  C 

0901  SO  IS  300  CONTZNUT 

0001  S\  \9  C«  UNITE  US.  90S)  > 

0001 3?  IS  9090  F0NNATI1I.  *HOCl  ATTCR  INPUT  TO  lUCUCS*  I 

000131  IS  CALL  0TNCC1 

000139  13  RETURN 

000199  13  (NO 


UNNAXN  ••#••• 


G-34 


UNSTAT 


CAA-TP-79-1 


00 0001 

IS 

SUBS  OUt  I ME  UNSTATI  OELATI 

ooooo? 

2 S 

c 

THIS  SUBROUT  III  or  IT  IN  IN  FS  A COMA  7 UNIT*?  COMAT  AMD  NO  MC  CM  Bl  T LASSES  . IN 

000003 

23 

c 

AOOTTIOM  THIS  SUBROUTINE  ft  FO  ID  LBS  ME  Cf  SS  Aft  T SUPPLIES  AMD  PERSONNEL  F OR  TME 

000000 

23 

c 

C0MA1  UM1T5.  THIS  SUBROUTINE  BILL  RECEIVE  AMT  SUN  PL  TES  SENT  FROM  THEATER 

000009 

23 

c 

STOCRS 

00 00 OS 

2) 

c 

000007 

23 

INCLUDE  CQNNMM.XST 

oooooa 

23 

c 

000009 

23 

c 

DO  00 10 

27 

Cl 

VRITT  (19.3973  1 THOM 

000011 

23 

1973 

FORMAT  |*  •••••SUB  ROUT  ME  UNSTAT  CALLED  AT  ••PlN.lt*  M*m*| 

000012 

23 

c 

000013 

23 

00  10D  J=t  *R TYPES 

000019 

2- 

c 

000015 

23 

c 

00  00  IS 

23 

c 

IN 

SSAVE.  TMO  VALUES  OF  THE  PERMANENT  LOSSES  ARE  PRINTED.  TME  FIRST 

00  0017 

21 

c 

IS  1 

PRMLOSI  J»  • VMICM  IS  A CUMULATIVE  TOTAL  «F  TME  LOSSES.  CUMULATIVE- 

00 00  It 

23 

c 

LT 

AODEO  EACH  DAT.  TME  SECOND  IS  PWMLOS IJI-BUFPRM IJ I.  VMICM  REFLECTS 

oeoon 

23 

c 

THE 

HUMBER  OF  LOSSES  PER  DM.  AND  IS  ROT  CUNINATlVC. 

OC  00**0 

23 

c 

000021 

23 

OUFftBRC.il  r PNNLOSIJI 

CIO  0022 

23 

c 

000023 

21 

c 

INITIALIZE  SOME  BBRT  ABLE  5 USES  IB  COMBAT  LOSS  CALCINATION 

0000  29 

23 

c 

000025 

23 

MOSPrRCJ 1=0.0 

00  00  29 

23 

TPERLSI J|=0.0 

0000  27 

23 

DATL0Sljr=0.0 

0OUO21 

21 

TMCMCJ  1=0.0 

000029 

21 

TCONIJ  1=0.0 

0000  30 

2 J 

oo  loo  1=1  .p'mctts 

000031 

23 

>ESUPCI.j.3INJ 

00003? 

23 

RISU7II.J.2INJ 

000033 

23 

CORLOS I t «j  i=  q«  q 

0000  39 

23 

mc*losci.ji=o.o 

000035 

23 

CREHLSfl.J 1=0.0 

0000  3 £ 

23 

LOO 

TOTLOSCI«JI=Q.O 

000037 

23 

c 

000031 

21 

c 

Ntm  loop  to  rrprppp  t*  cculiuoi  - thc  loop  is  cop  putt  it  rouippon  nr  PC 

000039 

21 

c 

AMO 

•T  UNIT 

00U09Q 

23 

c 

000091 

23 

DO  1 10  JSI.NTTPCS 

00009? 

23 

PERMS  = PRMLNSUl 

000093 

23 

oc  130  I =3  .RUM ITS 

000099 

23 

c 

000095 

21 

c 

TME 

FIRST  COLUMN  Of  TME  THEATER  STATUS  MATRIX  ITMTRSM1  IS  USED  TO 

000096 

21 

c 

Of TE RNlnJE  IF  THE  UMTT  MAS  NOT  VET  •RIVED.  IN  VMICM  CASE  T»C  F0LL0VIM8 

000097 

23 

c 

OMIT  UPOATF  LIST  IS  SNIPPED.  THE  VALUES  AMO  RFANIN8S  OF  TKTRSNI  1. 31 

000Q99 

23 

c 

ARE 

000099 

23 

c 

000050 

23 

c 

0=  THE  UNIT  HAS  NOT  ARRIVED. 

000051 

23 

c 

3=  TME  UNIT  NAS  ARRIVED  • MB 

000052 

23 

c 

2=  THE  UR  IT  IS  COMMITTED. 

000053 

23 

c 

000059 

23 

IFITMTRSNII.il  AT.  1*01  M TO  UO 

000055 

23 

c 

000056 

21 

c 

CALCULATE  A UNIT'S  MOM  CO  MB  AT  LOSSES  AND  DECREASE  TIC  UNIT'S  ST  RE MB  TV 

000057 

21 

c 

•PPHOPOIIICLT.  PLSO.  UPOOTf  TMI  CUPP  TP  T CTCtl  LOSS  TOTTP.S 

000051 

23 

c 

000059 

21 

MCML  OS  I T .«!  1=  UN  IT  OH  fl  .J  .3  l*NCNR«T|J| 

000060 

23 

UPITOMtl.J.l  1 UUP I TOP  (I  .J.l  I-PCH05II.JI 

000061 

23 

CREWAVCI.J)  = CRCMAVCI.J)  ♦ NCm.OSd.JI  • CNMPENIJI 

000062 

23 

INCH  < J >=  TNCN  U »•  NCm.  OS  fl  . J 1 

000061 

23 

DA TL  OS  1 J 1=  01 H.  OS  1 J »♦  NC *. OS  1 1 .J  1 

000069 

23 

TOTLOSd.JI=NCm.OStt»Jl 

000065 

27 

«• 

HRZTEC39.100D  H.HCNLOSI  I.  J1  .UNITOMI  I.  J.  31  .TOTLOSII.JI 

000066 

23 

1000 

F0RR*TC3I.*UMIT=*.I2.*  NCR  LOS  = *.F10.9.*  UMIT0M  = *. 

000067 

23 

l 

r F 10  .9  »•  T OTUOS=  * a Fl  0.  91 

000061 

23 

c 

000069 

23 

c 

REM  OCR  SUPPLIES  WO  REPLACE  NO  NC  ON  BAT  LOSSES 

0000  70 

23 

c 

0000  71 

27 

Cl 

WRITE  Cl  9.  10  ID  |I  .RES  UP  II.J.ll 

0000  72 

23 

1010 

FORMAT  C 3 I . *UNIT=*.I2.»  RESUP  =•  *F 30  .1 1 

000073 

23 

c 

0000  79 

23 

c 

ELIMINATE  THE  UN  RE  PAIR  ABLE  LOSSES  FROM  TME  NON  CORO  AT  LOSSES 

0000  75 

23 

c 

0000  76 

23 

PR  ML  OS  C J 1=  PR  ML  OS  I J >•  MC  ft.  0 S 1 1 • J 1 • UN  RE  P 1 Jl 

0000  77 

21 

RESUPI  I.J.3I=NESUPCI  .J  .1  l*NC  ML  OS  Cl  • J »•  UN  RE  PC  Jl 

0000  71 

23 

MCMLOS  C I • J 1=  NCHLOS  IT  .J  A-MCIB.  OS  Cl  • J l*UNRC  PI  Jl 

0000  79 

27 

Cl 

MR  I TE  1 1 9.  30  SB  IPRMLOSI  Jl  .NCMLOSII.JI 

0000  00 

23 

3020 

FORMAT  C 31.  *PBNLOS=  ••FlO.R.*  NOR. 0S=W  »F  10 -9  1 

000011 

23 

c 

000012 

23 

c 

17  1 

r ME  UNIT  IS  UICOMNITTED  OR  IF  IT  IS  PRIOR  TO  POAT  BO  MOT  CALCULATE 

0000*3 

23 

c 

l-orbat  Lossrs 

000019 

27 

Cl 

VBITE  119.19791  T HT  RSMC  I,  1»  .OOA  Y 

0000  IS 

21 

c 

UNSTAT 
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Bl. 


CAA-TP- 

• •••••  UK  TM 

00  GO  8b  2 

OOOU87  2 

300088  2 

000088  2 

000080  2 

000091  2 

000092  2 

000093  2 

000098  2 

000095  2 

0000  96  2 

000097  2 

000098  2 

000099  2 

0001  00  2 

000101  2 

000107  2 

000103  2 

000109  2 

000105  2 

0001 08  2 

000107  2 

000108  t 

000109  2 

000110  2 

000111  2 

000112  2 

000113  2 

000119  2 

000115  2 

000118  2 

000117  2 

000118  2 

000119  2 

000170  2 

000171  2 

000122  2 

000123  2 

000129  2 

000125  2 

000128  2 

000177  2 

000128  2 

000129  2 

000130  2 

000131  2 

000132  2 

000133  2 

000139  2 

000135  2 

000135  2 

000137  2 

000138  2 

000139  2 

000190  2 

000191  2 

00019?  2 

000193  2 

000199  2 

000195  2 

000195  2 

000197  2 

000198  2 

000199  2 

000150  2 

000151  2 

00015?  ? 

000153  2 

000159  2 

000155  2 

0001S5  2 

000157  2 

000158  2 

00U1S9  2 

000180  2 

000151  2 

00016?  2 

000163  2 

000169  2 


79-1 


If  ITMTRSNI  I. II  4.T.2.0  .08.  0087*87 .7  KOMI  80  TO  105 

C 

C CALCULATE  UNIT  COM 887  LOSSES  Of  80  TN  EQUIPMENT  8 NO  PERSONNEL . *0 JUST  THE 
C l HIT’S  ST8EN8TN  ON  PH  OP  81 ATQ.V  NO  UPD8TE  TIC  CUN8ENT  CYCLE  CUNULOTXVE  LOSS 
C TOTALS. 

C 

CONLOSlI.JI-UNITOMfl  .J  *1  l•C0NR8TIJ| 

UNlTOMlI.J.l  1 308  IT  OH  fl  * J » 1 I- CO  ML  OS  1 1 * J I 
CREMLSI I .J  1=  com. OS  II  .J  I* PERM  AT  IJ  I 
ONI  TOMt  I.J.2  13UNIT0H  (I  *J  *2  l-CRCMLSII.J  I 
TOTLOSII.JI-TOTLOSII  »J  T*COm.OS  II  »J  I 
DAVLOSI J l=DA  VLOSI J !♦  COHLOS II  »J  I 
TPCRLS  I J 1=  TPfNLS  I J !♦  CO  CTLS  II  • J I 
TCOHIJI  = TC8MIJI  ♦ COm.OSII»J) 

CS  TRITE  119.1030  IT  .CONLO  SI  I.  Jl  .C8EMLSI  I.  Jl  .UNTTOMII.JI  .UKITONI  I.  J.  ?l 

1030  F08NAT  111.  *UNI  T=  * • 12  •*  CONLOS=  •tflO.Ot  • C*CTLS=*  *F10 .9 ••  UNITOMiz* 
l *F  10  .9  . * UNTT0K2-*  (FliMI 

c 

C RE  ON OCR  LOST  PERSONNEL  AND  LOST  COUtPNENT 
C 

RE  SUM  I.  J.  21  -CRT  ML  SI  I.  J» 

C 

C PLACE  COUIPNENTLESS  PERSONNEL  INTO  THE  AVAIL  AO  LE  COEN  TOTALS 
C 

CREMAV 1 1 »J  I- OR  WAV  II  .J  M COH.OS  It  *J  MCRMPCR  IJ  I- Cl  E MLS  1 1 »J  I 
CS  VOITC  119.  1090  II  .RESIT  II  *J*l  l.HCSUPI  X.  J.2»  .CRCTRVf  I*  Jl 
1090  FORMAT  I ll.*UNirr*.I2.*  RCSlTl=**FlQ.9.*RCStT2=**Fl0.9t*  CNCTAVr* , 
i rio.91 

c 

C RCOUCXNS  C0N8AT  LOSS  07  CALCULATING  THE  PCM  AMENT  LOSSES  OUC  TO  CONOAT  0 AM  i 
C ANO  OUC  TO  A BA  NO  ON  NE  NTS.  IN  ADDITION  CALCULATE  THE  PERNANENT  LOSSES  OF 
C PERSONNEL 
C 

PR  9L  OS  I J >=  PR«.  OS  I J H COW.  OS  II  »J  I*  OAHR  AT  I J I 

RE ' UP!  I.  J.  II  =RE  SUP  1 1 .J  .1  I ♦CONL  OS  II  » J »•  DAM  AT  I J I 

COM  OS  It  »J  I?  com.  OS  II  *J  T-  CORLOS  If  *J  !*OAM  AT  IJ  I 

C9  TRITE  119.1090  II.PRHLOSI  Jl  .COML0SII.  Jl 

1050  FORMAT  111.  *URl  T-  • • 12  **  PRMLOS=  %F10.9.  *CQMLOS=  ••F10.9I 
PR  ML  OS  I J I- Ptm.  OS  I J H com.  OS  II  • J I*  AORA  TI  Jl 
RESUPI  I.  J.  II  =RCSUP  IX  .J  .1  !♦  CO  ML  OS  1 1.  Jl*  AORA  TUI 
comlosii.j  i=com.osii.j  f- com.  os  1 1.  J »9A0Rati  Jt 
PE  RL  OS  IJ  r=  PE  m.  OS  I J M CR  CULS II  *J  !•  CRUL  SR  I J I 
CRCMLSII.J|:MCMLSII.JT-CRCMLSII*JI9CRNLSRIJI 
Cf  TRITE  119.  1000  IPRMLOSI  Jl  .COMLOSl  I*  Jl  *FERLOSI  Jl  .CRClA. S(  I.  Jl 

1000  F0RMATI1I.  •pm.m.OS:*  .F10.9.*  COM  LOS-  •.FUU  9.  • PERL  OS:*  .F  10  .4  . 

1 • CR€TLS=  ’.riO.91 
C 

C TOTAL  THE  NUN Oft  OF  PERSONNEL  TO  OF  CNTCRCO  Si  TO  M0SII8L  DEL  AT  CTCLC 
C 

HOSPERI JKM0  9PE0  IJ  !♦  CREWLSII  .J  I 
C 

C RESUPPLY  THE  UNIM  NITH  PERSONNEL  ANO  UP  0 ATE  RESUP  PL  T M ORDER  TOTALS 
C 

105  UNITON  I I.J.l  B=  UNITOM  II  *J*1  HRCSUPA  II  .J  «l  I 

RCSUPO  1 1 • J .1  isJIESUPOlIaU.l  !♦  RE  SUP!  I.  J.  II  -RCSUP  Al  I*  J.  II 
UNI  TOM  1 1 .J  .2  8=  UNITOM  II  *J  .2  I*  RE  SUPA  1 1 . J .2  I 
RCSUP0I1.J.2I3RCSUP0  II  *U  .2  !♦  RESUPI  I.  J.2I  -CCSUPOI  I*  J.21 
CREMAV  I X • J I : CREMAV  II  .J  I ♦ RE  SUPA  1 1 . J .2  I 
C9  TRITE  119.  10  TO  IUNI  TO  HI  I.  J.  II  .RCSUP  Al  I.  J.  II  .RCSUPP.  I*  J.  II 

107  0 FORMAT  111.  *UNI  TOHl  :•  .F  10.9  ••  RFSUP  Al  =•  .F 10  .9  ••  RiSUPOl  =•  *F  10  .9  I 
Cf  TRITE  119.  10  80  IUNI  TO  HI  I.  J.  ?!  .RCSUP  Al  I.  J.  ?!  .RCSUP  01 1.  J.  21 

1080  FORMAT  1 1 1.  *UNI  T0M2  =' *F  10.9  •*  RCSUP  A?  :•  .F 10  .9  .•  RESUP  02  =*  .F 10  .0  I 
PTRANSIJl=pTR9RSIJI-RCSUPAII.J.2l 
C 

C THE  ARRAY.  TLOSI  Jl  • CONTAINS  A CUMULATIVE  TOTAL  OF  ALL  TANKS  LOST 
C DURING  THIS  SIMULATION.  THE  *OATLOS**  ON  TANKS  LOST  EACH  OAT*  AKE 
C ADDED  TO  TNE  CUMULATIVE  TOTAL  EACH  OAT. 

C 

TLOSIJirTLOSU  I ♦ DA  VI  OS  IJ  I 
CG  WRITE  119.10851  I .C  RE  TA  VI  I.  J| 

1085  FORMAT  111.*  UNIT  = • » 12  • • CREMAV  = • • F10.9I 
C 

OATPRN:  DA  TP  HR  ♦ PRMLOSIJI 
110  C0NT1NUF 

DATPRM  S OATPNN  - PERNS 

C 

C ENTER  PERSONNEL  TN TO  TIC  HOSPITAL  OfLAT  CYCLE 
C 


UNSTAT 


XFI00AV.8T.TR0HI80  TO  130 


CAA-TP-79-1 


000165 
000166 
00016? 
000169 
000169 
000170 
0001  71 
0001 T? 
000175 
0001 7% 
000179 
000176 
000177 
000178 
000179 
000180 
000161 
000167 
000161 
000169 
000185 
000186 
000197 
000166 
000189 
000190 
000191 
000197 
0001  9 J 
000199 


000001 

000007 

000001 

000009 

000005 

000006 

000007 

000006 

000009 

000010 

000011 

000017 

00001J 

000019 

000015 

000016 


UNSTAT 


71  00  170  J=l  .HTTWS 

71  67  01 II II  r?  NOW*  Of  LA  V 

21  ATRIBI  21  =9  *0 

21  ATRIBI3t=a.O 

23  ATRIBI  91  =0  *0 

21  ATRIBI  51  =MOSPCB€  J» 

21  ATRXB<6»=0.0 

21  ItRIlITt^LOlTU) 

21  CALL  FILCNIl) 

23  HOSPlJlrMBSPU  KH07CIU  > 

21  170  CONTINUE 

23  130  CONTINUE 

27  C6  WRITE 1 19*  10  S IMOSFC Bt  II  *0  AVLO  St II  *TPCRL  SI  H tTCORI  11  *TNCRI II 

23  1090  F0RNATI1X,  »MOSPCR=  ••FlO.9*  ' QAn.0Sr*  ,r  UJ  •%  ,•  TPCTLS:*  ,f  |0  .9  • 

23  l*TC0K=*tF10.9«  • TNCN  =•  *F  10  .9  | 

23  DO  190  J=l.BT7f€S 

23  DO  190  mtNiailTS 

23  C 

23  C ZERO  OUT  ARRIVALS  OR  HA  MO  MATRIX 
23  C 

27  C6  WRITE  119*  1100  ) X.  TO  TL  09  • I *J  » 

23  1100  FORMAT  II  It  * »TT='tX3.*  TO  TL  OS  =•  * F lfl  .9 1 

23  RCSUFA  II.J.1  ISA.  0 

23  190  RCSUFA  1 1 • J *2  130*  B 

27  C9  WRITE  1 19*  11  ID  I TLOSIll 

23  1110  FORMAT  I IX  • *TLOS  r ••  F10.9I 

2?  C9  WRITE  1 19. 2000  I 

21  2000  FORMAT  1 1 X*  *TME  F MO  OF  UNSTAT*| 

21  RCTURH 

23  EHO 


UNSTAT 


WRESUF  •••••• 

09  SUBROUTINE  URESUF 

09  IMCLUOF  COMMON  *L  IS  T 

00  C6  WRITE  IIS*  1O71ITN0W 

09  L9T 1 TORMAT  • • ••  ••  •SUBROUT WE  URtStP  CALLED  AT  *»Flfl*l»*  ••••••» 

09  C 

09  C THIS  SUBROUTINE  RECEIVES  A UNIT  RESUFFLIES  FROM  TNCATCR  STOCKS 
09  C 

09  PCXFIXIATRIBIJII 

09  IPIFIXIATRT817  II 

06  C8  WRITE  113*19791  M.N  »RCSUF  Al  M,  M.  1 1 »RCSUP  Al  N*N*2I 
09  RCSUFA  IR  »R  *1  N:  RCSUFA  IM*N*l  !♦  ATRTBI9I 

05  TRANSTINI=TRANSTIN>-ATRXRI9) 

09  RCSUPAIR.N *2  ^RCSUFA  IN  *H*2  !♦  ATRIBI  51 

06  Ct  WRITE  111*19291  RCSUT  Al  N*  H*  If  * ATRIBI  91  * RCSUFA  IM  *N*2  I.  ATRIRI5I 

09  RETURN 

09  END 
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IMCS  HM*» 


UOOOOl 

09 

SUBROUTINE  MARCS 

000007 

09 

XNC1U0C  CONNOR  .LIST 

000003 

13 

C8  MRITC  113*  19  71  ) T NO  M 

00  00  0 A 

09 

1971  CORNAT  (•  •••  •SUBROUT  IRC  MARCS  CALLED  AT  •tFlfelt* 

) 

000005 

09 

C 

000006 

09 

C THIS  SUBROUTINE  Ml  HOLES  THE  MAR  RESERVES  PORTION  OF  THE 

0A1LV 

EVENTS  CTCLE 

000007 

09 

C tmritl.LT>  TtC  w«*  RCSERVC  OUTPUTS  III  DETER KI UFO.  >rTC*Vt*D> 

KCMLT  ARRIVED 

000008 

09 

C SUPPLIES  ARC  ADDED  TO  RESERVE  STOCKS 

00 00  OS 

09 

C 

0000 10 

09 

DO  100  1=1  .NTT  PCS 

oouon 

13 

CB  MRITC  113  *1000)  PMRS  <11 

000017 

09 

1000  CORNAT  (IX*  AINITIAL  P MR  S=  • • flO.AI 

00001) 

09 

C 

0000 1* 

09 

C DETERMINE  MARC  RESERVES  OUTPUT  AHO  ADJUST  PURS  STOCK 

000015 

09 

C 

000016 

09 

MRSRT=PMRSRTII  1 

000017 

09 

IF  ll.EB.il  MRSRT=  MR  SR  T+  6SS  a AS 

000018 

09 

PMRSOUH  l = MRSRT/PMRSHRIX  I 

Q0QC19 

09 

C 

000070 

09 

C IF  REMAIN  PM RS  STOCKS  LESS  THAN  OUTPUT  RATE  TMFH  OUTPUT 

RE  NAM  WO  STOCKS 

000071 

09 

C 

0000  7? 

09 

IF  IPMRSI  II  .LT.PMRSOU  II  II  PMRSOUI  II=PMRS(  H 

000023 

11 

PMRSII  irpMRSH  t-PMRSOU  IX  1 

00002A 

13 

CA  MRITC  (UtlOlOl  PMRSOUI  11 

000025 

11 

100  CONTINUE 

000026 

09 

1010  FORMAT  111*  •PMRSOU=  • • FlO.AI 

0000  27 

09 

DO  150  1=1  *NTY  PCS 

000028 

09 

C 

0000  25 

09 

C INCREASE  MAR  RESERVES  BT  HFOLT  ARRIVED  SUPPLIES 

0000  30 

09 

C 

000031 

09 

PMRS  IX  1- PMRS  II  1* PMRS  IN  II  1 

00  0032 

13 

CA  MRITE  113*10201  PMRSI  11  .PHRSINI  I| 

000033 

09 

1020  FORMAT  I1X*  -PMRS  ••  F 10  *A  • •PURSIH  • *»  FlO.AI 

0000  3 A 

10 

SUPT  OT 1 1 1=  SU  PTOT  1 1 !♦  PM  RS  IN  1 1 1 

000035 

09 

PMRSINII  1=0.0 

0000 36 

09 

ISO  CONTINUE 

0000  37 

09 

RETURN 

000038 

09 

CNO 

MARCS 


• MRARR 


00 0001 

00 

SUBROUTINE  MHARR 

000002 

00 

INCLUOE  COMNBM  *LlST 

000003 

01 

CA 

MRITC  113.  19  71  1 T NO  M 

OOt  304 

00 

1 

OJCwOS 

00 

c 

000006 

00 

c 

THIS  SUBROUTINE  RECEIVES  MAR  RESERVE  RE  SI#  PL  US  FROM  CONUS 

000007 

00 

c 

000008 

00 

IPIFIXIATRIBL7  || 

000009 

00 

PMRS  IN  1 N 1=  PMRS  IN  (N  HAT  RI8I  A| 

00  0010 

00 

RETURN 

000011 

00 

ENO 

MR  AAR 
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Section  II.  FLOW  DIAGRAMS 


A 


A | SET  MAINT 

SCHEDULE 
EVENT 


CAA-TP-79-1 


EVNTS 


2 __  f 

6 t 

CALL  ARRIVL 
(EVENT  2) 

HANDLES  THE 
ARRIVAL  OF  A 

UNIT  AND 
SCHEDULES  THE 
COMMITMENT  OF 

CALL  WRARR 

(EVENT  6) 

\ 

RETURN 

WUI  II  1 A II  IUI1  I | 

A UNIT. 

1 

RETURN 

3 1 

7 j 

CALL  COMMIT 

(EVENT  3) 

COMMIT  A UNIT 

TO  THE  FEBA 

CALL  RESERV 

(EVENT  7) 

\ 

RETURN 

RETURN 

4 j 

8 ♦ 

CALL  HOSPTL 

(EVENT  4) 

HANDLES 

MHlto 

UNITS  FROM 
HOSPITAL 

CALL  MASUIN 

(EVENT  8) 

1 

RETURN 

1 

T 

RETURN 

9 ♦ 

* 

CALL  URESUP 
(EVENT  5) 

RECEIVES  UNIT 
SUPPLIES  FROM 
STOCKS 

WRITE:  TIME 

t 

RETURN 

\ 

RETURN 

RECEIVES 

SUPPLIES 

FROM 

CONUS 


RECEIVES 

CONUS 

PERSONNEL 


COMPUTES 
OS,  GS 
REPAIR 
CAPACITIES 
OR  WAR 
RESERVE  OUT- 
PUT RATES 


A 
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MAINT 


A 


A 


i 


00  220 

— 

| J-1 . NTYPES 

■ 

SET  DS 

REPAIR 

CAPACITY 

1 

WRITE 

REPAIR 

CAPACITY 

□ 

COMPUTE  DS 
MAINT  OUTPUT 

I X 

SET  GS 
REPAIR 
CAPACITY 


i. 


COMPUTE 
MAINT  OU 

GS 

TPUT 

220  ' 

CONTINUE 

t 


COMPUTE  DS 
AND  GS  MAINT 
(COM  AND  NONCOM) 
CUR  REQUIRED 


WRITE 

DS,  GS  MAINT 
REQ  FOR  EQUIP 
TYPE  1 


RETURN 
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MAINT 
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MAINT 


SET  REPCAP: 
GS  REPAIR 
CAPACITY 


I 


IF  REPCAP  i 0,  THEN 
COMPUTE  GS  NONCOMBAT  AND 
GS  COMBAT  REAR  MAINTENANCE 
OUTPUT 


DO  220  1=2, 4, 2 
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MASUIN 

ENTER 


WRITE  WAR 
RESERVE  OUTPUT 
RATE 


WRITE  DS 
REPAIR  CAP 


] 

] 

] 


INCRE  G. 
REPAIR 

:ap 

1 

i 

WRITE  GS 
REPAIR  CAP 


f- 

I 
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UNWIN 


RETURN 
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« 


SCHEDULE  HOSP 
Oa*Y  CYCLE 


Jjfl I 

WRITE: 

PERSONNEL 

LOSSES 


SET  RESUPPLY 
ARRAYS  TO 
ZERO 


T 

RETURN 


CAA-TP-79-1 


ABRAT(J) 

BACKLG(I.J) 

BACKPL(I.J) 

BUFPRM(J) 

COMRAT(J) 

COMLOS(I.J) 

CREWAV(I.J) 

CREWLS(I,J) 

CRWLSR(J) 

CRWPER(d) 

DAMRAT(J) 

DAYLOS(J) 


Section  III.  COMMON/ARRAY  1 


The  daily  loss  rate  due  to  the  abandonment  of 
equipment,  0<  A <.  J=equipment  type.  (UNSTAT) 

Unit  I's  current  backlog  order  of  type  J equip- 
ment. (THSTOK) 

Unit  I's  current  backlog  order  of  type  J per- 
sonnel. (THSTOK) 

The  total  permanent  losses  from  0 to  (TNOW-1). 

The  daily  combat  loss  rate  for  each  of  the  J 
types  of  equipment.  0<  c <1  (UNSTAT) 

A combat  unit's  current  cycle  combat  equipment 
losses.  Later  computations  on  COMLOS  alter 
this  definition. 

C0MLQS( I ,J )=UNIT0H( I ,J ,1)*  COMRAT(J)  I=unit 
number  and  J=equipment  type.  (UNSTAT,  MAI  NT ) 

For  each  run,  the  total  number  of  crew  person- 
nel in  unit  I without  type  J equipment. 

(UNSTAT) 

Combat  unit  I's  current  cycle  personnel  losses 
of  type  J.  (UNSTAT) 

CREWLS( I ,J )=C0ML0S( I ,J )*PERRAT( J ) 

Note  that  J type  equipment  implies  J type  per- 
sonnel . 

Permanent  loss  rate  of  type  J personnel.  0<C<1 
(UNSTAT) 

Number  of  crew  members  per  piece  of  equipment 
of  type  J. 

Permanent  loss  rate  for  combat  equipment  of 
type  J.  0<D<1  (UNSTAT) 

The  total  combat  anc  noncombat  losses  summed 
per  day  over  all  the  units,  J=equipment  type. 
(UNSTAT) 
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DSCOM(J)  The  fraction  of  repairable  combat  losses  which 

requires  direct  support  maintenance,  ^equip- 
ment type.  0<D<1  (MAI NT) 

DSNCM(J)  The  fraction  of  repairable  noncombat  losses 

which  requires  direct  support  maintenance. 
J=equipment.  0<D>1  (MAI NT) 

DSREPB(J)  DS  maintenance  (combat  and  noncombat)  needed 

for  equipment  awaiting  repair  J=equipment  type. 
(MAINT) 

DSC  (I,J)  (L-9  DCS ( I , J ) =RC ( I , J ) -GSC ( I ,J ) , where  RC(I,J) 

is  the  repairable  combat  losses) 

DSN(I.J)  (L-9  DSN(I,J)=Rn(I,J)-GSN(,J),  where  Rp( I ,J ) is 

the  repairable  noncombat  losses) 

GSCOM(J)  The  fraction  of  repairable  combat  losses  which 

require  general  support  maintenance,  ^equip- 
ment type 
0<G<1. (MAINT) 

GSC0M( I ) =1 . O-DSCOM ( I ) 

PSNCM(J)  The  fraction  of  repairable  noncombat  losses 

which  require  general  support  maintenance. 
J=equipment  type  0<G<1  GS  NCM( I ) =1  -DSNCM(I) 

GSREPB(J)  GS  maintenance  (combat  and  noncombat)  needed 

for  equipment  awaiting  repair.  J=equipment 

type.  (MAINT) 

GSC(I.J)  (L-9  GSC ( I ,J )=GSC0M( J )*  R ( I , J ) , where  Rc  is 

the  repairable  combat  losses. 

(L-9  GSN(I,J)  (L-9  GSN( I , J )=GSNCM( J )*R  ( I , J ) , where  R is  the 

repairable  noncombat  losses. 

HOSPER(J)  The  number  of  personnel  of  type  J to  enter  the 

hospital  delay  route  on  the  current  cycle. 

a (UNSTAT) 

HOSPING(J)  Number  of  personnel  of  type  J arriving  In  the 

theater  personnel  pool  from  the  hospital  on 
this  cycle.  (HOSPTL) 
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MACAPI ( I ,J ) 

(1.1)  An  index  number  used  to  associate  maintenance 
capacity  with  a given  unit. 

(1.2)  Total  maintenance  capacity  of  a unit. 

(I,J>3)  The  fraction  of  the  unit's  total  maintenance 

capacity  which  is  devoted  to  DS  maintenance, 
[0,1]  for  this  type  of  equipment 


MAFACT ( 1 , J ) 
(2,J) 
(3,J) 
(4,J ) 


average  DS  noncombat  loss  maintenance  required, 
average  GS  noncombat  loss  maintenance  required, 
average  DS  combat  loss  maintenance  required, 
average  GS  combat  loss  maintenance  required. 


Units  are  manhours/vehicle  J=equipment  type 


MCC1  (K , J , 1 , 1 ) 
( I ,J , 1 ,2) 
( I ,J ,2, 1 ) 
( I ,J ,2,2) 
(I.J.3,1) 
( I ,J ,3,2) 


queue  length,  noncombat 
queue  length,  combat 
queue  output,  noncombat 
queue  output,  combat 
queue  input,  noncombat 
queue  input,  combat 


Maintenance  control  center  number  1 indicating  for  each  unit  I,  by 
equipment  type  J,  the  DS  maintenance  input  and  output  by  the  unit 
(numbers  of  vehicles). 


Input  waiting  repairs  output 
MCC1 ( I ,J ,3,L)=MCC1( I ,J , 1 ,L)+MCC1( I ,J ,2,L) 


MC1(I,J,K,L) 


I 

Unit  nb 


J 

Equip  type 


K 

1 queue  length 

2 queue  output 

3 queue  input 


L 

1 noncombat 

2 combat 


MCC2(L,K,J ) Maintenance  control  center  number  2.  The  DS 

and  GS  maintenance  output  by  rear  maintenance 
units  (numbers  of  vehicles). 


L 

K 

J 

1 

DS 

noncombat 

1 queue  length 

equipment 

2 

GS 

noncombat 

2 queue  length 

type 

3 

4 

DS 

GS 

combat 

combat 

3 queue  output 
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input  waiting  repairs  output 
MCC2(L,2,J )=MCC2  (L,1,J)+MCC2(L,3,J) 


forlMCCltS;d  Jchc2fUbSCrtpt  f0r  queue  1nput  a"d  output 


is  reversed 


NCMLOS ( I , J ) 
NCMRAT(J) 


A unit's  noncombat  losses  for  a specific  tvoe 
of  equipment. 

The  noncombat  loss  rates  (a  percentage)  for  a 
type  °f  equ1Pment  J=type  of  equipment. 
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PERFAC(J) 

PERLOS(J) 

PERRAT(J) 

PERSEN(K.J) 

PERSIN(J) 

PRMLOS(J) 

PRS(J) 

PWRSHR(J) 

PWRSIN(J) 

PWRSOU(J) 

PWRSRT(J) 

REPAIR  (1,J) 


COMMON/ARRAY  2/ 


The  fraction  of  backlogged  personnel  orders 
which  will  be  filled  on  this  cycle,  0<P<1  J= 
personnel  type.  (THSTOK) 

The  total  number  of  personnel  of  type  J perma- 
nently lost  in  a run.  (UNSTAT) 

The  combat  personnel  loss  rate  for  type 
equipment.  (UNSTAT) 

Personnel  loss  rate  = number  of  PeoP1e  1ost 

combat  loss 

The  number  of  personnel,  of  type  J,  sent  to 
unit  I on  the  current  cycle.  (THSTOK) 

The  number  of  personnel,  of  type  J,  arriving 
from  CONUS  on  this  cycle.  (RESERV) 

The  cumulative  number  of  permanent  losses  of 
equipment  of  type,  J,  from  0 to  TNQW.  (UNSTAT) 

The  quantity  of  equipment,  of  type  J,  currently 
in  war  reserve  stocks.  (WARES) 

The  number  of  manhours  of  work  required  to  out- 
put a piece  of  equipment  of  type  J.  (WARES) 

The  number  of  combat  vehicles  of  type  J,  which 
have  entered  war  reserve  stocks  on  the  current 
cycle.  (WARES) 

The  number  of  combat  vehicles,  of  type  J,  which 
have  been  shipped  from  war  reserve  stocks  to 
theater  stocks  on  the  current  cycle.  (WARES) 
(THSTOK) 

The  war  reserve  output  rate  for  each  type  of 
equipment.  The  output  rate  is  specified  in 
manhours/day.  (WARES) 

The  expected  DS  noncombat  maintenance  for  the 
current  cycle,  equipment  type  J. 
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REPAIR  (2,J ) 
REPAIR  (3,J ) 
REPAIR ( 4 , J ) 

REPIN(l.J) 

REPIN(2,J ) 

REPIN(3,J ) 

REP I N ( 4 , J ) 

REPOUT ( J ) 
REPRAT ( 1 ,J  ) 
REPRAT ( 2 , J ) 

RE  SUP ( I ,J ,K) 


The  expected  GS  noncombat  maintenance  for  the 
current  cycle,  equipment  type  J. 

The  expected  DS  combat  maintenance  for  the  cur- 
rent cycle,  equipment  type  J. 

The  expected  GS  combat  maintenance  for  the  cur- 
rent cycle,  equipment  type  J.  (MAI NT) 

Units  are  manhours  of  work. 

The  total  DS  noncombat  maintenance  required, 
for  equipment  of  type  J,  for  the  vehicles 
awaiting  repair. 

The  total  GS  noncombat  maintenance  required, 
for  equipment  of  type  J,  for  the  vehicles 
awaiting  repair. 

The  total  DS  combat  maintenance  required,  for 
equipment  of  type  J,  for  the  vehicles  awaiting 
repair. 

The  total  GS  combat  maintenance  required,  for 
equipment  of  type  J,  for  the  vehicles  awaiting 
repair.  (MAI NT) 

Units  are  manhours  of  work. 

The  number  of  vehicles,  of  type  J,  repaired  by 
maintenance  In  this  cycle.  (MAINT) 

The  DS  repair  capacity  of  each  type  of  equip- 
ment. 

The  GS  repair  capacity  for  each  type  of  equip- 
ment. (MAINT) 

Units  are  manhours  of  work/day 

The  quantity  of  equipment  or  personnel,  by  type 
and  unit  ordered  on  the  current  cycle; 

I=un1t  number; 

J=equipment  type  for  K=l,  and 
J=personnel  type  for  K=2.  (UNSTAT) 
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RESUPA( I ,J ,K) 

RESUPO ( I , J ,K) 

SUPFAC(J) 

SUPSEM ( I ,J ) 

TCKLG(J) 

TCKPLiJ ) 

TCQM(J) 

THTRSM(I.K) 

THTRSM(I.l) 

THTRSMt 1,2) 

THTRSM(I,3) 

THTRSM{ 1,4) 
TLOS(J) 


The  quantity  of  equipment  or  personnel,  by 
type,  arriving  in  unit  I on  the  current  cycle. 
K=1  implies  equipment,  K=2  implies  personnel, 
(UNSTAT) 

The  total  quantity  of  equipment  or  personnel, 
by  type  currently  on  order  by  unit  I. 

K=1  implies  equipment,  K=2  implies  personnel. 
(UNSTAT) 

The  fraction  of  backlogged  equipment  orders  of 
types  J,  which  will  be  filled  on  the  current 
cycle.  (THSTOK) 

The  quantity  of  equipment,  of  type  J,  sent  to 
unit  I on  the  current  cycle.  (THSTOK) 

The  total  backlog  orders  of  type  J equipment. 
(THSTOK) 

The  total  backlog  orders  of  type  J personnel. 
(THSTOK) 

The  total  combat  equipment  losses,  by  type,  for 
the  current  cycle.  (THSTOK) 

Unit  status  matrix. 

1=0  Unit  I has  not  arrived 
1=1  Unit  1 has  arrived 
1=2  Unit  I is  committed 


1=1  Unit  I,  on  station  unit 
1=2  Unit  I,  POMr. US  unit 
1=3  Unit  I,  CONI'S  • nit 

An  index  number  for  unit  I.  The  index  number  is 
used  to  perform  a table  look-up  in  the  array 
MACAPT  to  obtain  me-'ntenance  capacity. 

Arrival  time  of  the  unit. 

The  total  combat  and  noncombat  equipment 
losses,  by  type,  for  a run.  (UNSTAT) 
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TNCM(J) 
TOTLOS ( I ,J ) 

TOTPER(J) 

TOTSTK(J) 

TPERLS(J) 

TPERS(I.J) 

TPRSEN(J) 

TSPNOT(J) 

TSPSEN(J) 
TSTOCK( I , J ) 

TRANST(J) 

UNECON(J) 

UNECRT(J) 


The  total  noncombat  equipment  losses,  by  type, 
for  the  current  cycle.  (USNTAT) 

The  total  combat  and  noncombat  equipment  losses 
for  the  current  cycle,  unit  I,  and 
equipment  type  J.  (UNSTAT) 

The  total  supply  of  type  J personnel  currently 
available  within  theater  personnel  pools. 
(THSTOK) 

The  quantity  of  equipment,  of  type  J,  currently 
available  within  theater  stock.  (THSTOK) 

The  total  personnel  losses,  by  type,  for  the 
current  cycle.  ( UNSTAT ) 

The  quantity  of  personnel,  of  type  J,  currently 
in  theater  stocks.  1=1,  implies  replacement 
personnel;  1=2,  implies  hospital  returned  per- 
sonnel. (THSTOK) 

The  total  number  of  personnel  of  type  J,  sent 
to  all  the  units  on  the  current  cycle.  (THSTOK) 

The  quantity  of  equipment,  of  type  J,  not  sent 
to  units  due  to  a lack  of  personnel,  current 
cycle.  (THSTOK) 

The  quantity  of  equipment,  of  type  J,  sent  on 
the  current  cycle.  (THSTOK) 

The  quantity  of  equipment,  of  type  J,  currently 
in  theater  stocks. 

1=1,  implies  war  reserves; 

1=2,  implies  repaired  equipment.  (THSTOK) 

The  quantity  of  equipment,  of  type  J,  in  tran- 
sit from  theater  stocks  to  units  (THSTOSK). 

The  total  uneconomical ly  repairable  combat 
equipment,  of  type  J,  in  a run.  (MAINT) 

The  uneconomical ly  repairable  rate  for  equip- 
ment type  J.  (See  equations)  (MAINT)  [0,1]. 


G-59 


CAA-TP-79-1 

UNITAU(I ,J,K) 

The  authorized  equipment  level  and  personnel 
level  for  unit  I.  K=l,  implies  J=equipment 
type;  K=2,  implies  J=personnel  type. 

UN ITOH ( I ,J ,K) 

The  onhand  equipment  level  and  personnel  level 
for  unit  1.  K=l,  Implies  J=equ1pment  type;  K= 
2,  personnel  type.  (UNSTAT) 

UNREP (J ) 

The  unrepairable  rate  for  noncombat  damaged 
equipment  of  type  J.  [0,13.  ( UNSTAT 1 

UNTMAC( I , J ) 

DS  unit  repair  capacity  by  equipment  type, 
(manhours  of  work/day). 

COMMON/CHECK/ 

HOSP(J) 

The  number  of  personnel  entered  Into  the  hospi- 
tal delay  cycle.  (UNSTAT) 

H0SP( J )=H0SP( J )+H0SPER( J ) 

OTGS(J) 

Cummulative  GS  maintenance  output  from  control 
center  two.  (MAI NT) 

0TGS(J )=0TGS(J )+MCC2( 1 .3, J ) , 

where  I equals  2 or  4 and  J is  equipment  type. 

OTROS(J) 

Cummulative  DS  maintenance  output  from  control 
center  two.  (MAINT) 

QTRDS( J )=0TRDS( J )+MCC2( I ,3,J ) . 

where  I equals  1 or  3 and  J is  equipment  type. 

OTUNDS(J) 

Cummulative  DS  maintenance  output  from  control 
center  one.  (UNMAIN) 

0TUNDS( J )=0TUNDS(J )+MCCl( I ,J ,2,K) , 

where  K=1  or  2 and  I and  J indicates  unit  and 

equipment  type  respectively. 

PERARR(J) 

The  number  of  arrived  replacement  personnel. 
(THSTOK) 

PERARR( J )+PERARR( J )+PERSIN(J ) 

PTRANS(J) 

The  personnel  in  transit.  (THSTOK)  and  (UNSTAT) 
PTR ANS ( J ) =PTR ANS ( J )+TPRSEN( J ) 

PTRANS  ( J )=PTRANS(J )-RESUPA( I ,J,2) 

Personnel  in  transit  from  theater  stocks  to 
uni ts. 
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RSIN(J) 

Total  DS  input  to  control  center  two.  ( MAINT ) 
RDSIN( J )=RDSIN( J )+MCC2( 1 ,2J )+MCC2(3,2,J ) 

SUPTOT(J) 

The  number  of  combat  vehicles  which  have  been 
added  to  war  reserve  stocks  for  all  cycles. 
(WARES)  (WRARR).  SUPTOTl I )=SUPT0T( I )+PWRSIN( I ) 

TGSIN(J) 

Total  GS  Input  to  control  center  two.  (MAINT) 
TSIN( J )=TGSIN(J )+MCC2(2,2,J )+MCC2(4,2,J ) 

UNDSIN(J) 

Cummulative  DS  maintenance  Input  to  control 
center  one.  (UNMAIN) 

UNDSIN( J )=UNDSIN( J )+MCCl( I ,J ,3, 1 )+MCCl( I ,J , 3,2) 

WARRES(J) 

The  Initial  war  reserve  stocks.  ( INTLC) 

WARRES(J )=PWRS(J ) . 

IN(11,D,T)-Sumniary  Report  Array. 

IN( 1 , IDAY.J )=IN( 1 , IDAY.J )+UN ITAU ( I , J , 1 ) 
IN(2,IDAY,J)=SUPT0T(J) 

IN( 3 , IDAY.J )=WARRES( J ) 

IN(4, IDAY.J )=UNDSIN( J ) 

IN( 5 , IDAY.J )=RDSIN( J ) 

IN (6, IDAY.J )=TGSIN(J ) 

IN(7 , IDAY.J ) = IN( 7, IDAY.J ) +UN ITAU ( I ,J  ,2) 
IN(8, IDAY.J )=PERARR(J ) 

I N( 9, IDAY.J )=IN(1)+IN(2IN(3) 

IN( 10, IDAY.J )+IN(4)+IN(5)+IN(6) 

IN( 1 1, IDAY.J )+IN(7)+IN(8) 
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0UT(21,D,T)-Summary  report  array 

OUT ( 1 , IDAY  J )=PWRS( J ) 

0UT(2, IDAY  J )=TST0CK( 1 ,J )+TST0CK(2,J ) 

OUT (3, IDAY, J )=0UT{3, IDAY, J )+UNITOH( I ,J,1)  THTRSMl I ,1 )=1.0 

0UT(4, IDAY, J )=0UT(4, IDAY.J )+UNIT0H( I ,J ,1)  THTRSM(I,1)=2.0 

OUT (5, IDAY , J )=PRMLOS( J ) 

OUT (6, IDAY, J )=UNECON( J ) 

OUT(7 , IDAY.J )=TRANST(J ) 

OUT(8, IDAY.J )=OUT( 8, IDAY.J )+MCCl( I ,J ,1,1)+MCC1( I ,J ,1,2) 
0UT(9, IDAY.J )=MCC2(1 , 1,J )+MCC2(3, 1 , J ) 

OUT ( 10, IDAY, J )=MCC2(2, 1, J )+MCC2(4, 1,J ) 

OUT (11,1 DAY , J ) =0TUNDS ( J ) 

OUT (12, IDAY.J )=OTRDS( J ) 

OUT( 13, IDAY.J )=OTGS(J) 

OUT{ 14, IDAY.J )=(14, IDAY, J)+UNITOH( I ,J ,2)THTRSM( I ,1)=1.0 
OUT (15,1 DAY , J ) =PERLOS ( J ) 

OUT (16, IDAY.J )=HOSP( J ) 

OUT( 17 , IDAY ,J )=TPERS( 1 , J )+TPERS( 2 , J ) 

OUT ( 18, IDAY.J )=PTRANS( J ) 

OUT( 19, IDAY.J )=OUT( 19, IDAY.J )+OUT(L , IDAY, J )L=1 , 10 

0UT(20, IDAY, J)=01T( 19, IDAY, J)+0UT(0, IDAY, J)L=8, 13 

OUT (21, IDAY , J )=OUT ( 21 , IDAY.J )+OUT(L , IDAY, J ) 

L=14,18 
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DELTA(3,D,T)-Summary  report  array 
DELTA(1,J,KTYPE)=ABS[IN(9,J,KTYPE)-0UT(19,J,KTYPE] 
J£LTA(2,J,KTYPE)=ABS[IN(10,J,KTYPE)-0UT(20,J,KTYPE] 
DELTA(3,J.KTYPE)=ABS[IN(11,J,KTYPE)-0UT(21,J,KTYPE)] 


QC AP( 3, D,T) -Summary  report  array. 

QCAP(1, IDAY,J)=REPRAT(1,J) 

DS  repair  capacity. 

QCAP(2, IDAY, J )=REPRAT(2, J ) 

GS  repair  capacity 

QCAP(3, IDAY, J )=PWRSRT( J ) 

War  reserve  output  rate. 


COMMON/NONARR/ 


DAYPRM 

See  subroutine  UNSTAT. 

DLYSTA 

The  number  of  days  of  delay  prior  to  the  com- 
mitment to  the  FEBA  of  an  on-station  combat 
uni  t. 

DLYPOM 

The  number  of  days  of  delay  prior  to  the  com- 
mitment to  the  FEBA  of  a newly  arrived  POMCUS 
uni  t. 

DLYCON 

The  number  of  days  of  delay  prior  to  the  com- 
mitment to  the  FEBA  of  a newly  arrived  CONUS 
uni  t. 

DDAY 

The  day  combat  computations  are  commenced. 

DLYHOS 

The  number  of  days  of  delay  prior  to  the  return 
of  hospitalized  personnel  to  the  theater  per- 
sonnel pool . 

DLYSUP 

The  number  of  days  of  delay  prior  to  the  arri- 
val of  any  resupply  equipment  from  theater 
stocks  to  the  combat  units. 
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DLYPER 

The  number  of  days  of  delay  prior  to  the  arri- 
val of  replacement  personnel  from  the  theater 
personnel  pool  to  the  combat  units. 

DLYMAI 

The  number  of  days  of  delay  prior  to  the 
val  of  any  combat  unit  associated  direct 
port  maintenance. 

arrl- 

sup- 

KDAY 

The  number  of  days  for  each  run. 

NMATE 

The  number  of  rows  in  th  v MACAPT. 

PERMS 

See  Subroutine  UNSTAT. 

COMMON/SSAVE/ 

See  tables  In  subroutine  SSAVE 


COMMON/TANKS/ 

TANK  The  total  number  of  days  vehicles  of  type  1 are 

committed. 

Let  Cj  be  the  number  of  tanks  committed  on  day 
i,  then 

TANK  = KDAY 

i=o  C1  * where  KDAY 

Is  the  number  of  days  for  each  run. 

GS  The  initial  strength,  in  theater,  of  a GS  main- 

tenance unit  In  manhours  per  day. 

GSS  The  number  of  GS  maintenance  units  assigned  to 

perform  a supply  role  during  the  current  cycle. 
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NUNITS 

NTYPES 

NMAINT 

NMATYP 

NSPUNT 

NSPTYP 

RELOC 

GSUS 

NARRS 

NRESUP 

NRPEL 

NARRMS 


COMMON/TOTS/ 

The  number  of  units  In  the  computational  proce- 
dure 

The  number  of  types  of  equipment  for  each  and 
every  unit.  Also  the  number  of  types  of  per- 
sonnel . 

not  used(?) 

not  used(?) 

not  used(?) 

not  used(?) 

The  time  in  the  computational  procedure  when 
all  GS  maintenance  units  performing  a supply 
role  are  reassigned  to  perform  a maintenance 
role. 

The  number  of  GS  maintenance  units  performing  a 
supply  role. 


INTLC  INPUT  CONSTANTS 


The  number  of  war  reserve  supply  events. 

The  number  of  reserve  replacement  personnel 
events. 

The  number  of  type  eight  events  input. 
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APPENDIX  H 
DISTRIBUTION 

ADDRESSEE 


Assistant  Secretary  of  the  Army  Installations,  1 

Logistics  & Financial  Management  / 

ATTN:  OASA 
Washington,  DC  20310 

Assitant  Secretary  of  the  Army  Research,  1 

Development  and  Acquisition 
ATTN:  OASA (R DA) 

Washington,  DC  20310 

Manager,  Defense  Logistics  Study  1 

Information  Exchange 
US  Army  Logistics  Management  Center 
Fort  Lee,  VA  23801 

Deputy  Under  Secretary  of  the  Army  1 

(Operations  Research) 

Washington,  DC  20310 

Deputy  Chief  of  Staff  for  Operations  and  Plans  1 

Headquarters,  Department  of  the  Army 
ATTN:  DAMO-RQS 
Washington,  DC  20310 

Deputy  Chief  of  Staff  for  Operations  and  Plans  1 

Headquarters,  Department  of  the  Army 
ATTN:  DAMO-SSP 
Washington,  DC  20310 

Deputy  Chief  of  Staff  for  Operations  and  Plans  2 

Headquarters,  Department  of  the  Army 
ATTN:  DAMO-ZD 
Washington,  DC  20310 

Deputy  Chief  of  Staff  for  Logistics  1 

Headquarters , Department  of  the  Army 
ATTN:  DALO-PLF 
Washington,  DC  20310 


H-l 


CAA-T  P-79-1 


Deputy  Chief  of  Staff  for  Research, 

Development,  and  Acquisition 
Headquarters,  Department  of  the  Army 
ATTN:  DAMA-PPI 
Washington,  DC  20310 

Commander 

US  Army  Combined  Arms  Combat  Developments  Activity 

ATTN:  ATCACF-DL 

Fort  Leavenworth,  KS  66027 

Headquarters 

US  Army  Materiel  Development  and  Readiness  Command 
5001  Eisenhower  Avenue 
Alexandria,  VA  22333 

US  Naval  Postgraduate  School 
ATTN:  Classified  Report  Section 
Library  (Dr.  Perry) 

Monterey,  CA  93940 

Chief 

US  Army  Engineer  Studies  Group 
6500  Brooks  Lane 
Washington,  DC  20315 

Commander 

US  Army  Logistics  Center 
Fort  Lee,  VA  23801 

Commandant 
US  Army  War  College 

ATTN:  Director,  Strategic  Studies  Institute 
Carlisle  Barracks,  PA  17013 

Commandant 
US  Army  War  College 
ATTN:  Librarian 
Carlisle  Barracks,  PA  17013 

Commander 

US  Army  Logistics  Evaluation  Agency 
New  Cumberland  Army  Depot 
New  Cumberland,  PA  17070 
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Commandant  1 

US  Army  Command  and  General  Staff  College 
ATTN:  Dept  of  Combat  Development, 

Force  Development 
Fort  Leavenworth,  KS  66027 

Commander  1 

US  Army  TRADOC  Systems  Analysis  Activity 
White  Sands  Missile  Range, 

NM  88002 

Headquarters  1 

US  Army  Training  and  Doctrine  Command 
ATTN:  ATCD-DC 
Fort  Lee,  VA  23651 

Director  1 

Department  of  the  Army  Program  Analysis 
& Evaluation  Directorate 
ATTN:  DACS-DPZ-A 
Washington,  DC  20310 

Deputy  Chief  of  Staff  for  Operations  and  Plans  1 

Headquarters,  Department  of  the  Army 
ATTN:  DAMO-ZN  (DAIRO) 

Washington,  DC  20310 

Director  1 

Department  of  the  Army  Program  Analysis 
and  Evaluation  Directorate 
ATTN:  DACS-DPA 
Washington,  DC  20310 

Defense  Documentation  Center  2 

Cameron  Station 
Alexandria,  VA  22314 

The  Army  Library  1 

Pentagon,  Rm  A526 
Washington,  DC  20310 
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GLOSSARY  OF  TERMS 


1.  ABBREVIATIONS,  ACRONYMS,  AND  SHORT  TITLES 
CEGE  Combat  Equipment  Group,  Europe 

CODAM  Combat  Damage  Assessment  Model 

CS  combat  support 

CSS  combat  service  support 

D-day  deployment  day 


DPPG 

DS 

FAS 

FPE 

FPP 

GER 

GS 

GRSA 

KAD 

MMC 

MOE 

NORTHAG 

Pact 

POMCUS 

PWRMS 

RDD 


Defense  Policy  and  Planning  Guidance  Memorandum 
direct  support 

ODCSOPS  Force  Accounting  System 
firepower  equivalent 
firepower  potential 
Germany 

general  support 
Germeschein  Storage  Activity 
Kaiserslautern  Army  Depot 
materiel  management  center 
measures  of  effectiveness 
Northern  Army  Group,  Europe 
Warwsaw  Pact 

prepositioning  of  materiel  configured  to  unit 
sets 

prepositioned  war  reserve  materiel  stocks 
required  delivery  date 
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REFORGER  Reinforcement  Force  Germany 

RFI  ready  for  issue 

PMDL  Post  Mobilization  Day  Deployment  List 

SRC  standard  requirements  code 

TAA  Total  Army  Analysis  Study 

TPFDL  Time  Phased  Force  Deployment  List 

2.  MODELS,  ROUTINES,  AND  SIMULATIONS 

CEM  Concepts  Evaluation  Model.  A fully  automated, 

deterministic  computer  simulation  model  which 
portrays  theater-level,  nonnuclear  warfare  be- 
tween two  opposing  forces  along  a continuous 
FEBA. 

FASTALS  Force  Analysis  Simulation  of  Theater  Adminis- 

trative and  Logistics  Support.  A model  which 
computes  time  phased  administrative  and  logis- 
tic workloads  for  an  active  theater  and  rounds 
out  the  force  structure  with  the  minimum  number 
of  doctrinal ly  required  support  units  to  per- 
form the  workload. 

TRANSMO  III  Transportation  Model  III.  A model  which  simu- 
lates the  movement  of  units  into  a theater  of 
operations.  Model  characteristics  include  the 
capability  to  simulate  attrition  of  personnel 
and  equipment  enroute  to  the  theater.  TRANSMO 
III  includes  explicit  convoy  simulation. 

BALFOR  Balanced  Force  Model. 

GASP  IV  A FORTRAN  simulation  language  for  discrete  and 

continuous  simulations. 
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